$ perl -Mstrict -wE 'my $h = {foo=>"bar"}; my $c = keys %{$h};'