idiomatic perl