#!/usr/bin/perl

use strict;
use warnings;

use Benchmark qw(cmpthese);

my @working;
$#working = 100;

cmpthese( -10, {
	assign          => '@working = (); $working[$_] = $_ foreach ( 0...100 );',
	assign_undef    => 'undef @working; $working[$_] = $_ foreach ( 0...100 );',
	assign_length   => '@working = ()[0...100]; $working[$_] = $_ foreach ( 0...100 );',
	using_x         => '@working = (undef) x 101; $working[$_] = $_ foreach ( 0...100 );',
	x_with_value    => '@working = 1 x 101; $working[$_] = $_ foreach ( 0...100 );',
	} );