foreach (keys %fh)    {
    my $x = $_;

##</code><code>##

foreach my $x (keys %fh)    {