Select Code to Download

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

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

foreach $key ( sort keys %FULLLINES ) {

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