use Math::Trig; my $maxlatdiff = acos($distcos);