my @names = (
				{first=>"john",last=>"brown"},
				{first=>"jacob",last=>"black"},
				{first=>"jingle",last=>"gray"},
				{first=>"heimer",last=>"greene"},
				{first=>"smitz",last=>"purple"}
			);

for my $name (@names){
	print $name->{last} if $name->{first} eq 'heimer';
}