for (1,2) {
    while (<STDIN>) {
    }
}

##</code><code>##

for ("foo\n", "bar\n") {
  chomp;
  print;
}

##</code><code>##

for my $str ("foo\n", "bar\n") {
  chomp $str;
  print $str;
}

##</code><code>##

@bad = map {$_++} (1,2);
@bad = grep {$_++} (1,2);

##</code><code>##

sub bad {
    $_[0]++;
}
bad(1);

##</code><code>##

my @good = (1,2);
@good = sort {$a++ <=> $b} @good;

##</code><code>##

@bad = sort {$a++ <=> $b} (1,2);

##</code><code>##

my @bad;
$bad[0] = [1];
$bad[2] = [2];
@bad = sort {$a->[0] <=> $b->[0]} @bad;