fix perl warnings