#!/usr/bin/perl

use Benchmark qw [ cmpthese ];

my (@letter) = ('A'..'Z','a'..'z','0'..'9');
my (@single,@double);

sub RandomCrap
{
        return join ('', map { $letter[rand(@letter)] } 0..64);
}

sub Prep
{
        for (my $i = 0; $i < 5; $i++)
        {
                my $func = '@x = (';
                for (my $n = 0; $n < 1000; $n++)
                {
                        $func .= "'".RandomCrap()."',";
                }
                $func .= ')';

                push (@single, $func);
        }

        @double = map { tr/'/"/; $_ } @single;
}

sub Evalu
{
        my ($array) = @_;

        foreach my $func (@$array)
        {
                eval $func;
        }
}

Prep();

cmpthese (25,
        {
                'Single' => sub { Evalu (\@single); },
                'Double' => sub { Evalu (\@double); },
        }
);