my @file = ('0.13','0.14','0.14');
my $diff = 0;

##</code><code>##

 
my @file = (0.14,0.14);
my $diff = -1;

##</code><code>##

Difference between 0.14 and 0.14 is 0