for my $key (keys %$hash1)