Tidy on perl code