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