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