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