You can speed up that _min by 20% by using this instead:

sub _min
{
    return $_[0] < $_[1]
           ?( $_[0] < $_[2] ? $_[0] : $_[2] )
           :( $_[1] < $_[2] ? $_[1] : $_[2] );
}
[download]