159     push @rows, $_ foreach ($start .. $y);
    push @rows, $start .. $y;

    165     push @rows, $_ foreach ($y + 1 .. $end);
    push @rows, $y + 1 .. $end;

    193     push @cols, $_ foreach ($start2 .. $x);
    push @cols, $start2 .. $x;

    199     push @cols, $_ foreach ($x + 1 .. $end2);
    push @cols, $x + 1 .. $end2;

    257     push @msgs, $Game->{Messages}[-5 + $_] foreach 0 .. 4;
    push @msgs, @{ $Game->{Messages} }[ -5 .. -1 ];

    288       shift @{ $Game->{MsgLog} } foreach 1 .. $times;
      splice @{ $Game->{MsgLog} }, 0, $times;

    356     push @draw, $lines[$_] foreach $y1 .. $y2;
    push @draw, @lines[ $y1 .. $y2 ];