#!perl -l

use strict;
use warnings;

my %hash;
my $string = '2e-149';

$hash{foo} = 1e-149;
print "\$hash{foo} = $hash{foo}";

$hash{foo} += $string;
print "\$hash{foo} = $hash{foo}";

$string = '2e-36';
$hash{foo} += $string;
print "\$hash{foo} = $hash{foo}";

__END__

$hash{foo} = 1e-149
$hash{foo} = 3e-149
$hash{foo} = 2e-36
[download]