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

##</code><code>##

Name,       Status,        Amount

John,       Active,        100.19
Shiela,     Active,        99.40
Bela,       Active,        1.0