To make that work you have to construct a "simple statement" for the outer statement modifier (the for loop)

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

Read the paragraph 'Simple Statements' in perlsyn man page if you want to know more