#!/usr/bin/perl -w
use strict;
use Devel::OpProf qw( profile print_stats zero_stats );
use Benchmark qw( timethese );

profile(1);

print "*** one() ***\n";
my @one = one();
print_stats();
zero_stats();

print "\n*** two() ***\n";
my @two = two();
print_stats();
zero_stats();

print "\n*** three() ***\n";
my @three = three();
print_stats();
zero_stats();

print "\n*** four() ***\n";
my @four = four();
print_stats();
zero_stats();

timethese( 0, {
    test_one   => 'one()',
    test_two   => 'two()',
    test_three => 'three()',
    test_four  => 'four()'
    } );

sub one {
    my @list;
    for ( my $i = 0; $i < 1000; $i++ ) {
	$list[$i] = 1;
    }
    return @list;
}

sub two {
    my @list;
    for ( 0..999 ) {
	$list[$_] = 1;
    }
    return @list;
}

sub three {
    my @list = map { 1 } (1..1000);
    return @list;
}

sub four {
    my @list;
    @list[0..999] = (1) x 1000;
    return @list;
}