open (logfile, ">>$LogName");
        while ($line = <cfile>) {
        $counter++;
        $BankCode=(split(/\t/,$line))[0];
     	print "$BankCode\n";
     	push(@bc ,"$BankCode");
}        
my %count;
map { $count{$_}++ } @bc;
$count = return %count;

map {print logfile  map {print logfile  "$ClientCode[$clientindex][0]\t$_\t$FileType[$fileindex][1]\t$CurrFile\t${count{$_}}\t$CurrZipFile\t$yyyymm\t$onDemand\n"} sort keys(%count);
=====
$_  = the BankCode in the print line