my $results = $dbh->selectall_arrayref($sql_statement);
if (@$results) {
 open...
 print...
 print ... join("\t", @$_),"\n" for @$results;
 print...
 close...
}