my $min = ( $x < $min ) ? $x : $min;