my @arr = ([1,1], [2,2], [3,3]);
#  [[1, 1], [2, 2], [3, 3]]

$_->[2] = $i++ for @arr;
#  [[1, 1, 0], [2, 2, 1], [3, 3, 2]]