4. my ($foo, $bar) = @_; or my $foo = shift; my $bar = shift;?