how to assign a hash table by slice (i.e setting a hash with both the key and value arrays)

hashslice.pl

#!perl

# how to assign a hash table in parallel
# using the whole slice !!!
# read more : http://perldoc.perl.org/perldata.html
#
# courtersy Michel Combes (@ Advancement of Civilization Effort Org.)
my %hash;
my @array = (1 .. 5);
my @keys = ('a' .. 'e');
printf "%s\n",join',',@array;
printf "%s\n",join',',@keys;

#%hash = ( map { $keys[$_] => $array[$_] } (0 .. $#array) );
@hash{@keys} = @array; # hash slice !

use YAML::Syck qw(Dump);

printf "%s\n",Dump(\%hash);

1;