use strict;
use warnings;
use Attribute::Benchmark;

my @rands = map rand, 1..5_000_000;

sub mean_via_lexicals :Benchmark
{
	my @nums = @rands;
	
	my $count = @nums;
	my $total = 0;
	for (my $i=0; $i < @nums; $i++) {
		$total += $nums[$i];
	}
	
	$total / $count;
}

sub mean_via_globals :Benchmark
{
	our @nums = @rands;
	
	our $count = @nums;
	our $total = 0;
	for (our $i=0; $i < @nums; $i++) {
		$total += $nums[$i];
	}
	
	$total / $count;
}

__END__
                  s/iter  mean_via_globals mean_via_lexicals
mean_via_globals    7.37                --              -12%
mean_via_lexicals   6.45               14%                --