As NetWallah says, the code is very hard to follow. But these lines look wrong to me:

while (my $row = <$FILE>) {
    open my $fh1, ">", "Bing/1Parsed/Html3/$file.html" or die("Could n
+ot open file. $!");
[download]

Since there is nothing to show that the value of $file changes within the while loop, the open statement recreates the same file and overwrites it on every loop iteration. (I’m also wondering whether it’s necessary to create a new instance of LWP::UserAgent on each iteration?)

For future reference: please provide a short, self-contained script illustrating your problem. It’s also a really good idea (and not just for getting help at the Monastery!) to adopt an indentation style and follow it consistently.

Hope that helps,