fixed perlcritic things