sub mode_num{
    my %count=();
        
     %opt =  %{shift @_ } ; #creating hash
     #dump \%opt;  #check data coming in..
     
     #need to get integrate count as I format data into hash(next task to make it reable)
     for (sort{$a <=> $b} %opt{NUMBERS}){
       #dump \$opt{NUMBERS}++;
       $opt{NUMBERS}++;
        }
       
        our @keys= sort{$opt{NUMBERS}->{$b}<=>$opt{NUMBERS}->{$a}} keys %opt{NUMBERS};


   return $opt{NUMBERS}[0]; #some $keys[0] here but don't know proper syntax...or correct method 
   }


##</code><code>##

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

##</code><code>##

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

use strict;
use warnings;
use autodie;
use Data::Dump qw(dump);
 

open my $in, '<', 'numbers.txt' or die $!;

  #  local $/;    # slurp mode
    my @data =split/\s+/,<$in>;
    close $in;

my ($mean,$ref,@new_sort)= sort_num(@data);
my $length=$$ref; #passing by ref example
print "Input Data set : @new_sort\n";
print "Mean : $mean\n";
print "Lenght : $length\n";


my ($middle,$median)=median_num(@data);
print "Median : $median\n";
print "Position of median number : $middle\n";

#using reference to build hash and find most duplicated num
my ($hash_ref)=mode_num( {NUMBERS=>\@new_sort} );

#foreach my $k (keys %$hash_ref){
#    for (0..$length){
#    print " $hash_ref->{$k}[$_]"; #%hash->NUMBER=> i_number 
#     }
#    }
    
my ($mode_num)=alt_mode_num(@data);
print "Mode : $mode_num\n";
    
    
      
# my sub practice with ref and hash_ref
sub sort_num{
    our @sorted=sort {$a <=> $b}@_;
    our $length = scalar (@sorted);
    our $add_div_elem =(eval join '+',@sorted)/$length;
   median_num(\@sorted);
   return $add_div_elem,\$length,@sorted;
    }
    
 sub median_num{
     my @sorted= @_; #using shift didn't work, why? format?
     my $middle_one = eval ((scalar @sorted)+ 1)/2;
     my $median=$sorted[$middle_one];
     return ( $middle_one, $median)
     } 
     
   #passing by references
 sub mode_num{
    my %count=();
        
     %opt =  %{shift @_ } ; #creating hash
     #dump \%opt;  #check data coming in..
     
     #need to get integrate count as I format data into hash(next task to make it reable)
     for (sort{$a <=> $b} %opt{NUMBERS}){
       #dump \$opt{NUMBERS}++;
       $opt{NUMBERS}++;
        }
       
        our @keys= sort{$opt{NUMBERS}->{$b}<=>$opt{NUMBERS}->{$a}} keys %opt{NUMBERS};

   return 
   }
   
   
   #alternate to get most repeated num. need to know while using NUMBERS ref    
   
   sub alt_mode_num{
        my %count=();
  
    for (sort{$a <=> $b} @_){
        $count{$_}++;
        }
   my @key= sort{$count{$b}<=>$count{$a}} keys %count;
   return $key[0];       
       
       }