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

##</code><code>##

>perl -wMstrict -le
"while (my $endlessly = shift @{[ qw(but why?) ]}) {
   print qq{$endlessly...};
   sleep 1;
   }
"
but...
but...
but...
Terminating on signal SIGINT(2)