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