sub get_max_index {  #revisit how to define functions/"my" var ? (default parameters?)
    my $imax=0;
    for (my $i=0; $i<@_; $i++)
         { 
           $imax=$_[$i] if ($imax<=$_[$i]);}
    return $imax;
}