my $lines = $FULLLINES{$key};
my $num   = scalar @$lines;