Getting better at Perl