my $nbLinesPerFile=$totalCount;

##</code><code>##

my $nbLinesPerFile=int( $totalCount / $nbFiles );

##</code><code>##

use Tie::File;
use Carp;
sub countLines {
    my $filename = shift;
    tie my @array, 'Tie::File', $filename
        or croak("failed to tie '$filename' - $!");
    scalar @array
}

##</code><code>##

use File::Split;
File::Split
->new({keepSource=>'1'})
->split_file({parts=>$nbFiles},$newfile);