my @tstary = (0,0,0,0,0);
print join(":",@tstary),"\n";
foreach my $idx1 (1..3){
  $tstary[1] = $idx1;
  print join(":",@tstary),"\n";
}

__OUTPUT__
0:0:0:0:0
0:1:0:0:0
0:2:0:0:0
0:3:0:0:0