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