## start with: my $foo = shift; ## adding $bar yields: my $foo = shift; my $bar = shift; #### .