almost finish perlcritic -3