fix construct that doesn't work in Perl 5.10