Select Code to Download

my %g = ();
my @innerKeys = qw/ specie gener age haircolor /;
...
 my $name = shift @vals;
 @{$g{$name}}{ @innerKeys } = @vals;
}

  my $csv = Text::CSV->new();
  open FILE, $filename or die "couldn't open file '$filename': $!";
...
    # Or a common/generic usage might be:
    push @rows, $row;
  }