codeeval 128, 80 Perl