while (my $lines_ref = read_lines_parallel(@filehandles)) {
    # Do something with $lines_ref or @$lines_ref here
    print join '|', @$lines_ref;
    print '-' x 20, "\n";
}