And while we are at it, a

sub xx {
my $var1 = shift;
my $var2 = shift;
...
[download]

is faster than

sub xx {
my ($var1,$var2) = @_;
...
[download]

It also gives you the oportunity for better comments and I personally feel more safe if crunching @_ instead of copying and leaving it untouched.