sub foo { my $foo = shift; } # and then you decide to add another parameter: sub foo { my ($foo,$bar) = shift; }