http://www.perlmonks.org?node_id=991609


in reply to Passing variables into a subroutine

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]

In Section Seekers of Perl Wisdom