c:\@Work\Perl\monks>perl -wMstrict -le
"my $hash;
 $hash->{TGT} = 3335.9999999999995;
 printf '%0.20f', $hash->{TGT};
"
3335.99999999999950000000