fixed more perl warnings