#!/usr/bin/perl -w

print "Введите строку: ";
$string = <STDIN>;
chomp $string;

# Заполняем массив @symbols символами из строки
@symbols = split(//, $string);
for ($a = 0; $a < @symbols; $a++) {
    $number[$a] = 0;
}

# Считаем частоту символов в строке
for ($i = 0; $i < @symbols-1; $i++) {
   if ($number[$i] == 0) {
      $count = 1;
      $number[$i] = 1;
      $t = $i + 1;
      print $t;
      for ($j = $t; $j < @symbols; $j++) {
	  $one = substr($string,$i,1);
	  $two = substr($string,$j,1);
	  if  ( ($one eq $two) and ($number[$j] == 0) ) {
	      $number[$j] = 1;
	      $count++;
	      
	  }
      }
      $tmp = substr($string,$i,1);
      print "$tmp - $count\n";
    }
}