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;
}