my @w = qw(1 2 3 ...); my $w; @$w{@w} = @w; $w->{0} = 1; # start