#!/usr/bin/perl -w

use strict;
my ($v,@array, $i, %assarray, $index);
srand;
$v=0;

while ($v++ < 10){
    push (@array, int (rand (100)) + 1);
     printf ("%d) %d\n", $v, @array);
}

foreach $i (0..$#array) {
    $assarray{"$i"}++;
}

print "Anzahl der Zahlen:\n";
print "-" x 60;
print "\n";

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