use Benchmark;

@base=qw/one two three four five six seven/;
timethese(1_000_000,{
'$'=>sub {($s1,$s2,$s3,$s4,$s5,$s6,$s7)=@base;},
'@'=>sub{@s=@base;}
});