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


in reply to Passing variables into a subroutine

I guess you want 
sub create_output {                    # no prototype
    my ($lines, $entry_no_new) = @_;   # $lines is arrayref

[download]

See The purpose of prototypes in perl subroutines, The Problem with Prototypes, Why are Perl 5's function prototypes bad?, Prototype

In Section Seekers of Perl Wisdom