my ($mode_num)=alt_mode_num(@data);
print "Mode : $mode_num\n";

 sub alt_mode_num{
        my %count=();
  
    for (sort{$a <=> $b} @_){
        $count{$_}++;
        }
   my @key= sort{$count{$b}<=>$count{$a}} keys %count;
   #print " Key with highest value is $keys[0] \n";
   return $key[0];       
       
       }