sub testref {
  my $arg1 = $_[0] ;
  my @list = @{$_[1]} ;
  my %hash = %{$_[2]} ;
  $this->other(...);
}