#!/usr/bin/perl

use strict;
use warnings;

my %bin;
my $mag;
my $abu;

while (<>) {
   ($mag, $abu) = split(/\s+/, $_);
   $bin{$mag}{$abu}++;
}

foreach $mag (sort { $a <=> $b } keys %bin) {
   foreach $abu (sort { $a <=> $b } keys %{$bin{$mag}}) {
      printf("%2s %3s %3s\n", $mag, $abu, $bin{$mag}{$abu});
   }
}