open (A, "ls|");
open (B, "ls|");
while (<A>)
{
        print "A: $. ";
        <B>;<B>;
        print "B: $. ";
}
close (A); 
close (B);