Select Code to Download

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

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

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