sub average_hourly_wage{
	my $self = shift;
	my $wages = 0; my $count = 0;
	
	foreach my $employee ( @{ $self->{EmployeeList} })
	{
		$wages += $employee->{hourlywage}; $count++;
	}
	
	return $count ? $wages / $count : 0;
}

##</code><code>##

if ( my $e = $EmployeeList->find("holli") )
{
	print $e->pay, "\n";
} 
else
{
	print "User not found\n";
}