Thanks for the insight everyone! Tux, I attempted using your code with the scalar as a reference but the csv command is specifically looking for an array reference. Am I doing something wrong?

if($sth->execute) { while(my $dat = $sth->fetchrow) {$csv->print($fh, 
+$dat);
}
[download]

Expected fields to be an array ref at ./name.pl line 65. I feel as though this will only work as \@dat.