#! perl -slw
use strict;

my @array = map{ int rand 10 } 1 .. 100;
my %counter;
$counter{$_} ++ for @array;
my $most_frequent = (
        sort{ $b->[1] <=> $a->[1] } 
        map{ [ $_, $counter{$_} ] } keys %counter
       )[0]->[0];

print $most_frequent;