$Mam = 'Mammal.txt';
open(FILE, $Mam) or die "Error. Could not open '$Mam'.";
while(<FILE>)
{
chomp;
@Loc = split(/\t/, $_);

my $Dist;
$Dist = CalculateDistance(54.988056, -1.619444, $Loc[1], $Loc[2]);