my $ht = \%h1;
for my $key ( keys %{$ht} ){ 
    my $val = $ht->{$key};
    ...
}