>perl -E '%h=map{ $_ => 1 } qw( a b c d e f ); while ($k=each %h) { say $k }'
a
c
d
b
f
e

>