Improved perl style