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