Select Code to Download

    my @array = qw( 2aa 2ba 12kf 9cn 9vn 21sg );
    my @idx= do {
...
    };
    my @sorted= @array[@idx];
    print "@sorted\n";

2aa 2ba 9cn 9vn 12kf 21sg