use Sort::Key::Top qw(rntop ntop);

my $n = 5;

my @data = (1, 30, 4, 5, 12, -12, 4.1, ...);

my @min_n = ntop $n => @data;
my @max_n = rntop $n => @data;