Select Code to Download

my @sorted = ((sort grep {$_ ge $top} @unsort),
              (sort grep {$_ lt $top} @unsort));

my @sorted = map {substr $_, 1}
             sort 
             map {sprintf "%s%s", (0, 1, 2)[$top cmp $_], $_}
             @unsorted;