Select Code to Download

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

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