Having fun with Perl