Select Code to Download

my @accounts = qw{ 118554 118555 118528 118529 118523 };

...
        print join( "\t", @row ) . "\n";
    }
}

my $statement = "
    select distinct
...
        print join( "\t", @row ) . "\n";
    }
}