determine why your perl program runs so slowly