Select Code to Download

@a=qw(1 2 3 4 5 6 7 8 9 2 3 1 4 5 6 7 8 9 1 4);

...
@l{@a}=0..$#a;
@f{reverse @a}=reverse 0..$#a;
print join ' ',@a[$f{$first}..$l{$last}],"\n";

@a[$f{$first}..$l{$last}>=$f{$first}?$l{$last}:$#a]