Select Code to Download

    @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;