The most interesting exerise answer I have ever received from a Learning Perl student got stung by deep recursion.
The exercise asked the student to write a subroutine to add numbers. I like the answer:
sub total
{
if( ! @_ )
{
return 0;
}
shift(@_) + total(@_);
}