fix precedence issue in perl 5.20