-my @table = qw(
- >: origineel: zee-: meer_water: aardig: anders:
- >hond: hond zeehond waterhond? aardhond? vleerhond
- >kat: kat zeekat meerkat caterpillar? tijgerkat
- >muis: muis zeemuis watermuis? aardmuis vleermuis
- >rat: rat zeerat waterrat woestijnrat buidelrat
- >egel: egel zee-egel wateregel? aardegel? mierenegel
- >varken: varken zeevarken waterzwijn aardvarken stekelvarken
- >koe: koe zeekoe meerkoetje aardkoe? haiku?
- >paard: paard zeepaardje nijlpaard aardpaard? luipaard
- >beer: beer zeebeer waterbeertje ijsbeer wasbeer
- >leeuw: leeuw zeeleeuw waterleeuw? aardleeuw? mierenleeuw
- >wolf: wolf zeewolf waterwolf? aardwolf buidelwolf
- >haan: haan zeehaan waterhaan rotshaan sprinkhaan
-);
-push @table, qw(
- >hoorn: eenhoorn zee-eenhoorn waterhoorn? aardhoorn? neushoorn eekhoorn
- >haas: haas zeehaas ? ? ?
- >olifant: olifant zeeolifant waterolifant? landolifant? ?
- >vlo: vlo strandvlo watervlo aardvlo ?
- >bra: bh? zebra waterbra? aardbra? cobra
- >draak: draak zeedraak waterdraak? aarddraak? ?
-) if exists $get{v};
-splice @table, 6 * 10, 0, 'neusbeer' if exists $get{v};
-splice @table, 6 * 5, 0, 'beverrat' if exists $get{v};