removed some redundant stuff

god damn perl golf