>perl -wMstrict -le
"my @ra =
   (qw(start a b c e l p r y z end))[-1, 6, 4, 7, 5, 1..3, 0];
 ;;
 printf qq{'$_' } for @ra;
"
'end' 'p' 'e' 'r' 'l' 'a' 'b' 'c' 'start'