my $req;

while ($req = ...