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