My attempt to learn Perl