Try this (untested):

my $entry_no_new   = pop @_;
my @array_of_lines = @_;
[download]

or

my @array_of_lines = @_;
my $entry_no_new   = pop @array_of_lines;
[download]