X:\>perl 1221948.pl
@_ = (
       'tahash'
     );

In TIEHASH ....
$val = bless( {}, 'tahash' );

Can't locate object method "FIRSTKEY" via package "tahash" at C:/strawberry/perl
/lib/Data/Dumper.pm line 190.
The object is destroyed...

X:\>