Help for this page
my @lists = ( [1,2,6], ... comp[10] = [1,5,3] comp[11] = [2,5,3] comp[12] = [6,5,3]
22a23 > $i = $#lists - $i; ... < if ($i == $#lists) { --- > if ($i == 0) {