@a[1,2,3] = @b[100,200,300]; #### @a{a,b,c}=@b[100,200,300]; #### @a{a,b,c}=1; #### for (a,b,c,d) { print "$_\n" if $a{$_} } OUTPUT: a #### @a{a,b,c}=(1,1,1); or @a{a,b,c}=(1)x3;