use strict;
use warnings;
use Scalar::Utils qw(looks_like_number);

   while (my $data = $_src_dbh->get_array())
    { 
        foreach my $elem (@$data) {
           $elem = int($elem) if looks_like_number($elem);
        }

        local $, = ',';
        print @$data;
        print "\n";
    }