c:\@Work\Perl>perl -wMstrict -MData::Dump -le
"my @array = 0..5;
 my @ranks;
 @ranks[@array] = 5..10;
 dd \@ranks;
"
[5 .. 10]

##</code><code>##

c:\@Work\Perl>perl -wMstrict -MData::Dump -le
"my @array = reverse 0 .. 5;
 my @ranks = (5 .. 10)[@array];
 dd \@ranks;
"
[10, 9, 8, 7, 6, 5]