$ perl -E '%hash = qw( a b c d ); while( my( $k, $v ) = each %hash ) { say qq{$k => $v}; }'
c => d
a => b