my %g = ();
while(<INFO>) {
 my ($name,$specie,$gender,$age,$hairColor) = split /,/,$_;
 $g{$name} = {
     SPECIE => $specie,
     GENDER => $gender,
     AGE => $age,
     HAIRCOLOR => $hairColor,
     };
}

##</code><code>##

call_sub( $g{$name} );