if($types{array} =~ /^ARRAY/) { print "ein array"; }
if($types{hash} =~ /^HASH/) { print "ein hash"; }