#!/usr/bin/perl


open(FIL,"prob79data.txt");
@l = <FIL>;
close(FIL);

@mat;

for ($i = 0; $i < 10; $i++) {
  for ($j = 0; $j < 10; $j++) {
    $mat[$i][$j] = 0;
  }
}

$tot = 0;
foreach $n (@l) {
  for ($i = 1; $i < 3; $i++) {
    $c = substr($n,$i,1);
    $d = substr($n,$i-1,1);
    $mat[$c][$d] = $mat[$c][$d] + 1;
    $tot++;
  }
}

for ($i = 0; $i < 10; $i++) {
  for ($j = 0; $j < 10; $j++) {
    print $mat[$i][$j] . "   ";
  }
  print "\n";
}