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

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

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