while (1) {
    my $lines_ref = read_lines_parallel(@filehandles);
    last unless $lines_ref;
    print join '|', @$lines_ref;
    print '-' x 20, "\n";
}