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