Tidied subroutines into different perl modules