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