#!/usr/bin/perl
use strict;
use warnings;
use Text::CSV;

my $csv = Text::CSV->new({binary => 1, sep_char => "\t"});
my @headers = @{$csv->getline(*DATA)};

while (my @data = @{$csv->getline(*DATA) // []}) {
    print "$_\t", shift @data, "\n" for @headers;
    print "\n";
}

__DATA__
Animal	keepers	M/F	YEAR	DOB	AGE	FSM	PREM ET	ND AL	EAL
GIRAFFE	JAMES LE	M	9	10/12/2007		Y	Y	N	N
HIPPOS	JACKIE LEAN	F	6	11/12/2007		Y	N	Y	Y
ZEBRAS	JAMES LEHERN	M	3	12/12/2007		N	N	N	Y
LIONS	AMIE CAHORT	M	1	13/12/2012		Y	Y	Y	N