> perl -wE '
    sub p {
        my($h) = @_;
        while (my($k, $v) = each %$h) { return "$k=$v" }
    }

    my %h = qw( one 1 two 2 three 3 );
    say p(\%h);
    say p(\%h);
    say p(\%h);
'
three=3
one=1
two=2