my @arr = qw(one two three); my @one=@arr; my @two = 1..$#one+1;