sub test_args {
  my $t = pop(@_);
  my @ar = @_;
...

##</code><code>##

sub test_args {
  my ($t, @ar) = (pop(@_), @_);
...

##</code><code>##

sub test_args {
  my (@ar, $t);
  (@ar[0..$#_-1], $t) = @_;
...