C:\>perl -M5.012
my $x = 5;
while ( say {a=>1,b=>2}  ) { die "abort" unless --$x }
__END__
HASH(0xf5b3d0)
HASH(0xf5b508)
HASH(0xf5b3d0)
HASH(0xf5b508)
HASH(0xf5b3d0)
abort at - line 2.

C:\>