>perl -wMstrict -le
"my @ra = qw(a b c d e f g h);
 my $i = 4;
 print qq{'$_'} for @ra[$i - @ra .. -1];
"
'e'
'f'
'g'
'h'