#!/usr/bin/perl -w

my @list = qw( 1 2 3 4 5 );

my @head = $list[0];
my @tail = @list[1..$#list];

print "List: $_\n" foreach @list;
print "Head: $_\n" foreach @head;
print "Tail: $_\n" foreach @tail;

__END__
List: 1
List: 2
List: 3
List: 4
List: 5
Head: 1
Tail: 2
Tail: 3
Tail: 4
Tail: 5