use Data::Dumper;
print Dumper $_;
# I won't even attempt to venture a guess as to what
# the data structure looks like (you must show it to me)
perldata covers slices (relevant pod is perlref, perllol, perldsc)

perl -le"print for @{[1,2,3,4,5,6]}[2..5]"
perl -le"$_=[1..7];print for @{$_}[-1,-2]"
[download]

update:

# also, to give you some insight
perl -le"@_=(1..7);print for $_[-1,-2]"
perl -le"$_=[1..7];print for $_->[-1,-2]"

# and
perl -MO=Deparse -le"$_=[1..7];print for $_->[-1,-2]"

$_ = [(1, 2, 3, 4, 5, 6, 7)];
foreach $_ ($$_['???', -2]) {
    print $_;
}

# and
perl -MO=Deparse -le"@_=(1..7);print for $_[-1,-2]"
@_ = (1, 2, 3, 4, 5, 6, 7);
foreach $_ ($_['???', -2]) {
    print $_;
}

#and
perl -MO=Deparse -le"$_=[1..7];print for @$_[-1,-2]"

$_ = [(1, 2, 3, 4, 5, 6, 7)];
foreach $_ (@$_[-1, -2]) {
    print $_;
}
[download]

 

______crazyinsomniac_____________________________ Of all the things I've lost, I miss my mind the most. perl -e "$q=$_;map({chr unpack qq;H*;,$_}split(q;;,q*H*));print;$q/$q;"