sub create_output (\@$) { my (@array_of_lines, $entry_no_new) = @_;