perl -wMstrict -le 'print qq{perl version: $] \n};;; my $x; my %y= ("h"=>1, "i"=>2);  print $x, $y{x}; printf "%s", $x;'