for( my $h = { qw' x 5 y 8 ' }; my($r,$s)=each %$h; ){
  print " $r = $s \n";
}
__END__
 y = 8
 x = 5