sub HandleTres{
  my $tresRef = shift;
  $tresref->[0]= "Something else";
}