Select Code to Download

my %c;
while( <> ){
...
    print "@{$c{$_}}\n";
}

col1|col2|col3|col4|col5|col6|col7|col8|col9|col10|col11|col12
...
CHL|123777|S|3327|0|0|0|0|001036|W035|S|08961029909655093775

BLA|001036|S|3228|10|1|2|3|001036|W035|S| |4
BLT|600123|S|3437|0|20|0|0|001036|W035|S| |0
BRO|900177|S|3531|-1|0|0|0|001036|W035|S| |0
CHL|123777|S|3327|3|0|0|0|001036|W035|S| |2

BLA|001036|S|3228|10|1|2|3|001036|W035|S| 
|4
...
|0
BRO|900177|S|3531|-1|0|0|0|001036|W035|S| 
|0