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