my @args=@_; # or my %args=@_ if you know it's going to be a hash

##</code><code>##

my ($arg1, $arg2, $arg3) = @_; # faster than (shift,shift,shift)