Select Code to Download

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

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

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