Oh, it's not a problem. However the way you worded your response did not acutally convey that that was what you were suggesting. Taking your comment literally one might naively do:

@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;},
});
[download]

--
perl -pew "s/\b;([mnst])/'$1/g"