open SOURCE, "; foreach my $line (@lines) { #Do the get request magic; }