Select Code to Download

use strict;
use warnings;
...
    print "$_\n" for @lines;
    print "\n";
}

A1                  A2                  
bl=>0               cc=>5               
...
ee=>3               oo=>5               
og=>0               pp=>4               
wo=>4               zz=>9