I think Perl's syntax is too "hairy". Also I cut my fingers with blunt knife, trying to sking fucking potatoes (they go nicely with vodka) and now it's painful to type text.
Symta:
head Head@Tail = Head
tail Head@Tail = Tail
Perl 6
sub head(*@ [$head, *@]) { $head; }
sub tail(*@ [$, *@tail]) { @tail; }