Few more Perl exercises