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