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