my $basedir = dirname($curDir);

my @lines = read_file( $curFile ) ;
my $numLines = @lines;

push @{ $dirLines{$basedir} }, $numLines;