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