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

##</code><code>##

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

##</code><code>##

foreach $key ( sort keys %FULLLINES ) {

    $CCOUNT = 0;
    print "key = $key\n";
    
    next if $key eq "N/A";

    $CCOUNT++ for @{$FULLLINES{$key}};
    $num = $CCOUNT;

    if ( $num <= 1 ) {
        print "account number for $key listed $num times\n";
    }
    else {
        print "Account $key is listed:$num times\n";
    }
}