Select Code to Download

push @{$FULLLINES{$account}}, “$lines”;

foreach $key (sort keys %FULLLINES){

...

} else {print "Account $key is listed:$num times\n";}