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 ];


##</code><code>##

    265   if (scalar @lines > 5) {
    266     @sayme = map { $lines[-$_] } (1 .. 5);
    267     @sayme = reverse @sayme;
    268   } else {

##</code><code>##

   if (@lines > 5) {
     @sayme = @lines[ -5 .. -1 ];
   } else {