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

##</code><code>##

foreach $key (sort keys %FULLLINES){

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

        foreach $fullline (@{$FULLLINES{$key}}) {
$CCOUNT++
}
$num = $CCOUNT;
if ($num <= 1) {

print "account number for $key listed $num times\n";

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