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