perl sucks