Fixed perl 5.20 precedence warning