Select Code to Download

 sub mode_num{
    my %count=();
...
   return $opt{NUMBERS}[0]; #some $keys[0] here but don't know proper 
+syntax...or correct method 
   }

2 3 3 3 5 7 8 12 32 44 55 12 3 23 43 33 1 4 25 43 42 1 4 5 3 3 3

# will find ave, media, range,mode and mean

...
   return $key[0];       
       
       }