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