sort.pl

#!/usr/bin/env perl

use 5.016;
use integer;

my $n = <>;
local $/ = " ";
$, = " ";
my @bottom;
while (<>) {
	if (@bottom < 5) {
		push @bottom, 0+$_;
		@bottom = sort { $b <=> $a } @bottom;
	}
	elsif ( $_ < $bottom[0] ) {
		push @bottom, 0+$_;
		@bottom = sort { $b <=> $a } @bottom;
		pop @bottom;
	}
	say @bottom;
}