learning Perl