knoppix@Microknoppix:~$ perl -Mstrict -wE '
> my %hash = (
>    one => q{ein},
>    two => q{zwei},
>    six => q{sechs},
>    );
> say qq{@{ [ %hash ] }};
> for ( 1 .. 9 )
> {
>     my ( $k, $v ) = each %hash || each %hash;
>     say qq{$_: $k => $v}
> }'
six sechs one ein two zwei
Use of uninitialized value $v in concatenation (.) or string at -e line 11.
1: six => 
Use of uninitialized value $v in concatenation (.) or string at -e line 11.
2: one => 
Use of uninitialized value $v in concatenation (.) or string at -e line 11.
3: two => 
4: six => sechs
Use of uninitialized value $v in concatenation (.) or string at -e line 11.
5: one => 
Use of uninitialized value $v in concatenation (.) or string at -e line 11.
6: two => 
7: six => sechs
Use of uninitialized value $v in concatenation (.) or string at -e line 11.
8: one => 
Use of uninitialized value $v in concatenation (.) or string at -e line 11.
9: two => 
knoppix@Microknoppix:~$