use Sort::Key;
@sorted = keysort { ($_ ge $top ? 'a' : 'b').$_ } @unsort;