sub test {
  my $this = shift ;
  my ( $arg1 , @list ) = @_ ;
  $this->other(...);
}