foreach my $i (@tstary[1,1,1]) { # or (($tstary[1])x3)
  ++$i;
  print join(':', @tstary), "\n";
}