There are some things mere mortals are not meant to do.

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

... is one of them.

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

... is another.