#!/usr/bin/perl

use strict;
use warnings;

use Benchmark qw( cmpthese );

my $count = shift || 100000;
my @test_array = (0 .. 99);
my (@array1, @array2);

sub map_bench
{
    @array1 = map { '?' } @test_array;
}

sub x_bench
{
    @array2 = '?' x @test_array;
}

map_bench;
x_bench;

print "\@test_array has ", scalar @test_array, " elements\n";
print "\@array1 has ", scalar @array1, " elements\n";
print "\@array2 has ", scalar @array2, " elements\n";

__END__
@test_array has 100 elements
@array1 has 100 elements
@array2 has 1 elements