more perl debugging