clean up Perl style a bit