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]