Interview task for Perl vacancy