my @data = getdata( 100000 );

my @topN = ( sort( @data ) )[ 1 .. 10 ];

undef( @data );

for my $top ( @topN ) { ## << COrrect per 427878
	## do something with $top
}