Select Code to Download

for my $x (1,2) {
  $x++;
}

for (1,2) {
  chomp;
...

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

sub incr {
  $_[0]++;
...
my $n = 1;
incr($n); # good
incr(1);  # bad

@array = sort { $a++ } (1,2);

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

for (1,2) {
  my $data = prompt_user();
...
     # Do stuff
   }
}

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

$_++ for (1,2);
$_++ for (1,@array);
@array = map {$_++} (1,@array);

my @array = (1,2);
for (@array) {
  $_++;
}

my ($x,$y) = (1,2);
for ($x,$y) {
  $_++;
}