Select Code to Download

@array = (2 ,4, 3, 8, 9, 12, 13, 20, 18, 7 );

...
@finalarray  = map {$_->[1] } sort { $a->[0] <=> $b->[0] } @sort_a_pos
+;

print "@finalarray";