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

##</code><code>##

@positions = map $_->[0], @positions;

##</code><code>##

$_ = $_->[0] for @positions;