I don't use it in production code where someone else might need to maintain my code, but when I'm lazy, I define superfluous variables when assigning from @_:

foo(1,2,3);

sub foo {
  my ($x,$y,$z,@sorted,$stdev) = @_;
  # ...
}
[download]

That's probably a no-no, though. ;)

japhy -- Perl and Regex Hacker