use Benchmark;

sub foreach1000()
{
	my @x = (1..1000);
	foreach(@x)
	{
		my $z = $_;
	}
}

sub for1000()
{
	my @x = (1..1000);
	for(my $y = 0; $y < scalar(@x); $y++)
	{
		my $z = $x[$y];
	}
}

sub foreach10000()
{
	my @x = (1..10000);
	foreach(@x)
	{
		my $z = $_;
	}
}

sub for10000()
{
	my @x = (1..10000);
	for(my $y = 0; $y < scalar(@x); $y++)
	{
		my $z = $x[$y];
	}
}

timethese( 10000, { for1000 => 'for1000()', foreach1000 => 'foreach1000()', for10000 => 'for10000()', foreach10000 => 'foreach10000()' });