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

##</code><code>##

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