how to run a bareword test on ebcdic ?

hi,
A bareword test : 
---------------------------------
  use utf8;
  my %hash = (тест => 123);
if (($hash{тест}) eq 
($hash{'тест'})) print "ok\n";
 
----------------------------------

The chars in the hash are \x{0442}, \x{0435}, \x{0441}
and \x{0442}. 
On ebcdic, the chars (barewords) are not displayed. 

On ebcdic, can I write :
my %hash = ("\x{0442}\x{0435}\x{0441}\x{0442}" => 123)
if (($hash{"\x{0442}\x{0435}\x{0441}\x{0442}"}) eq
($hash{eval '"\x{0442}\x{0435}\x{0441}\x{0442}"'}))
print "ok\n";

I use eval since the single quote outside a double
quote isnt recognised as is. 

1) Is the above allowed ?
2) Is there a different way to do the bareword test ?

Thanks in advance,
Rajarshi.



		
____________________________________________________ 
Yahoo! Sports 
Rekindle the Rivalries. Sign up for Fantasy Football 
http://football.fantasysports.yahoo.com