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

##</code><code>##

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