the only way i could think of you declaring and assinging on one line was like this, sean. as you can see, this code has been obfuscated into oblivion. don't do this.

my @data = ( 1..4 );
$$_ = eval{ local $"="+"; eval "@data" } for \my $columnsum;
[download]

i've seen this technique (for \my ...) used as a cute way to build a hash from two arrays

@$_{@keys} = @values for \my %hash;
[download]

but i prefer the more legible, highly maintainable

my %hash; @hash{@keys} = @values;
[download]

~Particle ;Þ