#!/usr/bin/perl -w

use strict;

my %myHash = ();
my @names;

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

while (<INFO>)
{
	my ($name,$species,$gender,$age,$hairColor) = split /,/,$_;
	push @names,$name;
	$myHash{ $name } = {};
	addValues( $myHash{ $name },\$name,\$species,\$gender,\$age,\$hairColor);
}

print "From outside the subroutine:\n";
foreach my $key ( @names )
{
	print "Key:\t$key\n";
	print $myHash{$key}{'name'}, "\n";
}

close (INFO);

sub addValues
{
	my ( $hashNameRef,$namRef,$speRef,$genRef,$ageRef,$hairColRef ) = @_;
	
	$hashNameRef = { 
		name		=> $$namRef,
		species		=> $$speRef,
		gender		=> $$genRef,
		age		=> $$ageRef,
		hairColor	=> $$hairColRef
	};
	print "$$hashNameRef{'name'}\t$$hashNameRef{'species'}\t$$hashNameRef{'gender'}\t$$hashNameRef{'age'}\t$$hashNameRef{'hairColor'}\n";
}


##</code><code>##

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