Getting the same output that you wanted!

And i think the code you have given needs slight modification:

1. for loop to be included in while

2. $_="|" for $"="|"

(I know you knew these :-))

Here I have modified.

my %c;
while( <> ){
    chomp;
    my($c2,$c4,$c12)=(split/\|/)[1,3,11];
    $c{"$c2|$c4"}||=[$_,0];
    ++$c{"$c2|$c4"}[1] if $c12=~/\S/;

$_="|";
for( sort keys %c ){
    print "@{$c{$_}}\n";
}
}
[download]