fixing perl warnings