Select Code to Download

my @topN = topN( $n, \@data );

@topN = topN( $n, [ @topN, 
    grep{ chomp; $_ > $topN[ -1 ] } <>
] );

my @topN( $n, \@data );
my @batch;
...
    }
    @topN( $n, [ @topN, @batch ] );
}