foreach my $key (keys(%hash)) {
    my $val = $hash{$key};
    ...
}