foreach my $k (keys %h){
    }