my %g = ();
my @innerKeys = qw/ specie gener age haircolor /;
while(<INFO>) {
 my @vals = split /,/, $_;
 my $name = shift @vals;
 @{$g{$name}}{ @innerKeys } = @vals;
}