knoppix@Microknoppix:~$ perl -Mstrict -wE '
my %hash = (
   one => q{ein},
   two => q{zwei},
   six => q{sechs},
   );
say qq{@{ [ %hash ] }};
for ( 1 .. 9 )
{             
    my $k = each %hash || each %hash;
    say qq{$_: $k => $hash{ $k }};
}'
six sechs one ein two zwei
1: six => sechs
2: one => ein
3: two => zwei
4: six => sechs
5: one => ein
6: two => zwei
7: six => sechs
8: one => ein
9: two => zwei
knoppix@Microknoppix:~$