It looks like you have created a Hash of Arrays (HoA) whereas you really need an Array of Hashes (AoH)

use strict;
use warnings;

my @data = ();

my @title = split /,/,<DATA>;
chomp(@title);
while (<DATA>) {
  chomp;
  my %rec = ();
  @rec{@title} = split(/,/); 
  push @data,\%rec;
}

for my $rec (@data){
  print  "$_\t$rec->{$_}\n" for @title;
  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
[download]