Here are four very simple/clean syntaxes to choose from:

• {   my %h = ( x=>5, y=>8 );
      while ( my ($r,$s) = each %h ) {
          ...
      }
  }
  [download]

• for ({ x=>5, y=>8 }) {
      while ( my ($r,$s) = each %$_ ) {
          ...
      }
  }
  [download]

• for (paired( x=>5, y=>8 )) {
      my ($r,$s) = @$_;
      ...
  }
  [download]

  where paired is defined as

  sub paired {
      my @pairs;
      push @pairs, [ shift, shift ] while @_;
      return @pairs;
  }
  [download]

• paired {
      my ($r,$s) = @_;
      ...
  } ( x=>5, y=>8 );
  [download]

  where paired is defined as

  sub paired(&@) {
      my $cb = shift;
      my @rv;
      push @rv, $cb->(shift, shift) while @_;
      return @rv;
  }
  [download]