do { die "Unknown char! \n" unless exists $testHash{$_} } for (@test);