use strict; 
use warnings; 

my $d1 = '1230.1200'; 
my $d2 =  '10332.0120';