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

##</code><code>##

  my $TresRef = $myHash{tres};
  $TresRef->[1] = "Tres punto uno";