#!/usr/bin/perl

my @list = (0, 1, 2, 3, 4, 5, 6, 7);
print "@list\n";
my @short = @list[1..4];
print "@short\n";
my $ref = \{@list[2..4]};
print "@$ref\n";

##</code><code>##

0 1 2 3 4 5 6 7
1 2 3 4
Not an ARRAY reference at test.pl line 7.

##</code><code>##

#!/usr/bin/perl

my @list = (0, 1, 2, 3, 4, 5, 6, 7);
print "@list\n";
my @short = @list[1..4];
print "@short\n";
my $ref = \@short;
print "@$ref\n";