for (@positions) {@positions = map $_->[0], @positions;}