foreach my $key (keys %{$hash1}){