Maybe this is just an inadvertent mistake, but think about what would happen with foo('bad','llama'):

sub foo
{
     my $array = @_;
     foreach ($array)
     {
          print "$_\n";
     }
}
[download]

Watch how you assign from an array, because you could end up in jail!