#!/usr/bin/perl -w

sub above_mean
{
	my @array=@_;
	my $sum=0;
	foreach $i (@array)
	{
		$sum+= $i;
	}
	
	my $mean = $sum/ @array;
	
	return grep { $_ > $mean} @array;
}

my @a=1..100;
foreach my $i (above_mean(@a))
{
	print "$i\n";
}