#!/usr/bin/perl
use warnings;
use strict;
use Benchmark qw(:all);

my @bigarray;
for(1..100000) {
  push @bigarray, "A randomish string for testing arrays with realistic data" ;
}

timethese(100, {
    while_shift => sub{
                      my @array = @bigarray;
                      while (my $value=shift @array){}
                   },
    while_pop   => sub{
                      my @array = @bigarray;
                      while (my $value=pop @array){}
                   },
    for_each    => sub{
                      my @array = @bigarray;
                      foreach my $value (@array){}
                   },
    for_loop    => sub{
                      my @array = @bigarray;
                      for (my $i=0;$i<=@array;$i++) {
                      my $value=$array[$i];
                    }},
});