perl -wMstrict -E 'my $href={a=>1}; say $_ for keys %{ $href }'
a