#!/usr/bin/perl -w
use strict;
my($v,@array, $i, %assarray, $index);
srand;
$v=0;
while ($v++ < 10)
{
  @array =  split (" ",rand(100));
  printf("%d %d\n", $v, @array);

}
for ($i=0;$i <= $#array;$i++)
{
  if(!defined($assarray{$array[$i]}))            
  {
    $assarray{$array[$i]} = 1;
  }
  else 
  { 
    $assarray{$array[$i]}++;
  }

}
foreach $index (keys %assarray)
{
  printf ("%d %d %d\n",$index, $assarray{$index}, length($index));
}