[- $values = [ [1, 2, 'a', 'aa'], [3, 4, 'b', 'bb'], [5, 6, 'c', 'cc'] ]; -] [$ foreach my $item (@$values) $] [+ $item->[1] +] [$ endforeach $] [+ $values->[$row][1] +]