print "$file[1]\n";
...
my $response = $ua->get($file[0]);