perl -e '$x=100.09;printf "%d\n",$x' 100 #### while (my $data = $_src_dbh->get_array()) { my $record = sprintf "%s%s%d",join(",", @$data); print "$record\n"; } #### while (my $data = $_src_dbh->get_array()) { my $record = sprintf "%s,%s,%d\n",@$data); print $record; }