my @SList = qw(Name Latitude Longitude);
my $FileA = "Mammal.txt";
open my $Mammals, "<", $FileA or die "Cannot open file'$FileA'.";
while (my $line = <$Mammals>) {
    my %data;
    @data{@SList} = split /\t/, $line, scalar @SList;
    foreach my $species (@SList) {
        printf "%-10.10s : %s\n", $species, $data{$species};
    }
}
close $Mammals;