while (my $data = $_src_dbh->get_array())
    {
        my $record = sprintf "%s,%s,%d\n",@$data);
        print $record;
    }