while( my $x = $db->getData() >>and<< my $y = $lwp->getData() ) { ## Use $x and $y }