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