perl 5.10 needs parens on that shift