sub min_max {
    my( $min, $max ) = ( 1e-308, 1e308 );
    for(@_){
        $min = $_ if $_ < $min;
        $max = $_ if $_ > $max;
    }
    return ($min, $max);
}