Playing around with functional constructs in Perl.