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