my @numbers = (1..100)

  my %count;

foreach $number(@numbers) {
    if (exists $count{$number}) {
        $count{$number}++;
    } else {
        $count{$number} = 1;
    }
}

foreach (sort keys %count) {
    print "$number occurs $count{$number} time(s)\n";
}