#!/usr/bin/perl -w

use vars qw/@splice_array $splice_str @array/;

use strict;
use Benchmark;

my @splice_array	= (2, 3..7);
my $splice_str		= "2, 3..7";
my @array		= (1 .. 10);

sub with_array {
	return @array[@splice_array];
}

sub with_string {
	return @array[ (eval $splice_str) ];
}

timethese (-5, {
		"array" 	=> \&with_array,
		"string"	=> \&with_string,
		}); 
	


##</code><code>##

Benchmark: running array, string, each for at least 5 CPU seconds...
     array:  0 wallclock secs ( 5.02 usr +  0.00 sys =  5.02 CPU) @ 548512.95/s (n=2753535)
    string:  6 wallclock secs ( 5.29 usr +  0.00 sys =  5.29 CPU) @ 5698.87/s (n=30147)