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(@_); }