Tony,human,male,47,gray
Mark,human,male,48,brown
Tyler,dog,male,11,brown
Anthi,human,female,39,black
Spud,cat,male,14,white
Erica,human,female,23,blonde

##</code><code>##

#!/usr/bin/perl -w

use strict;

my %myOuterHash = ();

open (INFO,"<info.txt");

while (<INFO>)
{
	my ($name,$species,$gender,$age,$hairColor) = split /,/,$_;
	%$myOuterHash{ $name } = ();
	addValues( \%$myOuterHash{ $name },\$species,\$gender,\$age,\$hairColor);
}

sub addValues
{
	my ( $hashNameRef,$speRef,$genRef,$ageRef,$hairColRef ) = @_;
	$$hashNameRef{ 'species' } = $$speRef;
	print "IN SUB:\t$$hashNameRef{ 'species' }\n";
}