use DBI;

my ($dbh, $sth, $a, $b, $c, $d);

$dbh = DBI->connect('DBI:ODBC:PLAY', '', '', {RaiseError => 1, AutoCommit => 1});

$sth = $dbh->prepare("SELECT A, B, C, D FROM Test");
$sth->execute();
($a, $b, $c, $d) = $sth->fetchrow;

print "A=$a\n";
print "B=$b\n";
print "C=$c\n";
print "D=$d\n";

print "\n";

$sth = $dbh->prepare("SELECT A+0, B+0, C+0, D+0 FROM Test");
$sth->execute();
($a, $b, $c, $d) = $sth->fetchrow;

print "A=$a\n";
print "B=$b\n";
print "C=$c\n";
print "D=$d\n";


##</code><code>##

A=6.02518
B= 
C= 
D=8.99280607700348E-2

A=6.02517986297607
B=3.50719429552555E-2
C=8.99280607700348E-2
D=8.99280607700348E-2