use IO::Handle;

open ($a, "ls|");
open ($b, "ls|");
while (<$a>)
{
        print "A: ", $a->input_line_number(), " ";
        <$b>;<$b>;
        print "B: ", $b->input_line_number(), " ";
}
close ($a);
close ($b);