#!/usr/bin/perl -lw
use strict;
my $h1= my $h2= 1e20;
my $s= 1.2345;
print $s+$h1-$h2;
print $s+($h1-$h2);
__END__
0
1.2345