forwhile.pl

#!/usr/bin/env perl

use strict;
use warnings;
use Benchmark qw(:all);

my $count = 1_000_000;
timethese(
    $count,
    {
        'ForLoop' => sub {
            my @array = 1 .. 1000;
            for (@array) {
                shift @array;
            }
        },
        'WhileLoop' => sub {
            my @array = 1 .. 1000;
            for (@array) {
                shift @array;
            }
        },
    }
);

output.txt

./forwhile.pl 
Benchmark: timing 1000000 iterations of ForLoop, WhileLoop...
   ForLoop: 116 wallclock secs (71.87 usr +  3.64 sys = 75.51 CPU) @ 13243.28/s (n=1000000)
 WhileLoop: 134 wallclock secs (74.98 usr +  3.76 sys = 78.74 CPU) @ 12700.03/s (n=1000000)