sub top_x {
    my $n = shift;
    my @top = splice @_, 0, $n;
    @top = ( sort { $a <=> $b } $_, @top )[ 1 .. $n ] for @_;
    return @top;
}