#!/usr/bin/perl

print $ARGV[0];

open FH, "<$ARGV[0]";
@lines = <FH>;
close FH;

chomp @lines;

sub mrk {
 my ($a, $b) = @_;
 if ($a > $b) {
   mrk($b, $a);
 } else {
   ++$dom{$a.$b};
 }
}

for $row (0..$#lines) {
  for $col (0..(-2 + length $lines[0])) {
    $foo = $lines[$row];
    $ha = substr($foo, $col, 1);
    $hb = substr($foo, $col+1, 1);
    mrk($ha, $hb);
  }
}

for $row (0..($#lines-1)) {
  for $col (0..(-1 + length $lines[0])) {
    $ha = substr($lines[$row], $col, 1);
    $hb = substr($lines[$row+1], $col, 1);
    mrk($ha, $hb);
  }
}

foreach $i (0..8) {
  foreach $j ($i..8) {
    push @yar, $i.$j;
  }
}

sub bys {
  return ($dom{$b} <=> $dom{$a});
}

@zar = sort bys @yar;

foreach (@zar) {
  print "$_ $dom{$_}\n";
}