sub my_sub {
 my ($arg1, $arg2) = @_;
 ...
}

##</code><code>##

sub my_sub {
 my ($arg1, $arg2) = @_ ? @_ : $_;
 ...
}