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