#!/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";
}