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