Perl life #3