sub find_above_average {
	my $mean = &calculate_average(@_);

	return grep $_ > $mean, @_;
}