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