my @time = localtime(time);
                ...

                for(my $i = 0; $i<= $file_number - 1; $i++){

                           ...


                        for(my $j = $i + 1; $j <= $file_number; $j++){
                                $x = $x + 1;
                                my $m2 = $file_list_array[$j];
                                my ($Nvalue3, $Nvalue4, $Nvalue5) = find_common_items($m1, $m2, \%file_gene, 0.1);

                                ...
                        }

                          ...
                }



               my @time = localtime(time);