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