while (my $req = ...