#!/usr/bin/perl

my @numbers; 
push @numbers,(int rand(100000000)) for (1..1000);
my %seen; 
for (@numbers){$seen{$_}++}
for(keys %seen){
    $value = $seen{$_}; 
    print qq{$_ seen $value times\n} if ($value > 1)
}