I'm going to go out on a limb and assume akm2 doesn't have a million appointments a day, in which case we may as well use selectall_arrayref:

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