idiomatic perl - shortcuts