-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};