for my $x (1,2) { $x++; } #### for (1,2) { chomp; } for ("foo", @list) { s/foo/bar/; } @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(); } sub prompt_user { print "Enter a number\n"; while () { # Do stuff } } #### for (1,2) { while () { } } #### $_++ for (1,2); $_++ for (1,@array); @array = map {$_++} (1,@array); #### my @array = (1,2); for (@array) { $_++; } #### my ($x,$y) = (1,2); for ($x,$y) { $_++; }