while (@report = $sth->fetchrow_array()) {
    print SAVE join("\t", @report), $/;
}