#! /usr/bin/perl

$template="A2x2A3";

for $mag (50..90){
  $abumax[$mag]=1;
 for $abu (1..100){
  $bin[$mag][$abu]=0;
  }
 }

while (<>){
 ($mag,$abu)=unpack($template,$_);
 $bin[$mag][$abu]++;
 $abumax[$mag]=$abu if ($abu >$abumax[$mag]);
 }

for $mag (50..90){
 for $abu (1..$abumax[$mag]){
  if ($bin[$mag][$abu] !=0){
   printf"%2s %3s %3s\n", $mag, $abu, $bin[$mag][$abu];
 }
}
}

##</code><code>##

50  1
50  2
53  5
54  2
50  2
53  5
54  2
50  2
53  5
54  2
64  5

##</code><code>##

50   1   1
50   2   3
53   5   3
54   2   3
64   5   1