my %h;
push @{$h{$_ cmp $top}}, $_ for @unsorted;
my @sorted = (@{$h{0}}, sort(@{$h{1}}), sort(@{$h{-1}}));