open(FILE, ">$name") or die "Failed file open: $!\n";

my $stmt = $dbh->prepare("$sql") or die $DBI::errstr; # $sql takes 30-40 secs. to run
$stmt->execute() or die $DBI::errstr;

while (my @array = $stmt->fetchrow()) {
    print;
    print FILE "$_";
}
$stmt->finish();

close(FILE);