sub create_output (@) {
    
    my (@array_of_lines, $entry_no_new) = @_;    # THIS DOES NOT WORK