my $sth = $dbh->prepare($sql);
$sth->execute() || die $sth->errstr;

my @row;

while (@row = $sth->fetchrow_array) {
        print IN join("\t", @row), "\n";
        }