# Haskell programmer:
my ($head, @tail) = list;

# Shell programmer
my @tail = list;
my $head = shift @tail;

# Perlfunc Author
my @tail = list;
my $head = splice @tail, 0, 1;