Tidyed perl file, was messy