in reply to passing $_ to my function
I usually use
sub my_sub { my ($arg1, $arg2) = @_; ... } [download]
in my functions. So the equivalent of these would be:
sub my_sub { my ($arg1, $arg2) = @_ ? @_ : $_; ... } [download]