my( $foo, ) = @_; #### my $foo = shift;