#!/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";