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