>perl -wMstrict -le
"sub func {
   my %args = @_;
   print keys %args
   }
 func({ bar => 'baz' } => 'foo');
 func({ fee => 'fie' } ,  'foe');
"
HASH(0x225398)
HASH(0x225398)