Personal learn Perl note