for( 0 .. $n )
{
   push @list, foo(1 .. 5);
   last if @list >= max_length();
   warn('System halt') and exit if bar($n => @list) > 999.999;
}