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

##</code><code>##

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

##</code><code>##

my %hash; @hash{@keys} = @values;