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

##</code><code>##

A: 1 B: 2 A: 2 B: 4 A: 3 B: 6 A: 4 B: 8 A: 5 B: 10