perl -le '$c = $y[10]; x($y[1]);sub x{$_[0]=1;print $c++,": $_" for @y}'
0: 
1: 1