From now on, think of for like this:

for local $_ ()
{
  #code
}
[download]

Try this on to see that behavior: and yes, it's evil

#!/usr/bin/perl -w
use strict;

sub x {print @_}
$_=["ah!\n","er?\n"];
for (@$_) {
        x "+$_";
        for (split//, $_) {
                x "-$_";
        }
}
[download]

--
$you = new YOU;
honk() if $you->love(perl)