[codingstd] Fix 2 Perl weaknesses detected by 'make cagecritic'.
[codingstd] Fix 2 Perl weaknesses detected by 'make cagecritic'.

youprofit/parrot,gitster/parrot,gitster/parrot,FROGGS/parrot,youprofit/parrot,tkob/parrot,tkob/parrot,parrot/parrot,gitster/parrot,parrot/parrot,tkob/parrot,tewk/parrot-select,FROGGS/parrot,tewk/parrot-select,youprofit/parrot,youprofit/parrot,gagern/parrot,FROGGS/parrot,gagern/parrot,tkob/parrot,tewk/parrot-select,gagern/parrot,tewk/parrot-select,youprofit/parrot,FROGGS/parrot,gitster/parrot,parrot/parrot,parrot/parrot,gitster/parrot,tkob/parrot,gagern/parrot,FROGGS/parrot,parrot/parrot,tewk/parrot-select,FROGGS/parrot,tkob/parrot,gitster/parrot,youprofit/parrot,gagern/parrot,tkob/parrot,gitster/parrot,FROGGS/parrot,gagern/parrot,youprofit/parrot,tewk/parrot-select,youprofit/parrot,tkob/parrot,tewk/parrot-select,gagern/parrot,FROGGS/parrot