Perl: Yet more hints in encoder; this time in hot loops