Help for this page

Select Code to Download

Select or download this

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