Select Code to Download

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

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