foreach my $k (keys %h){
        my $v=$h{$k};
    }