sub even { return $_[0] % 2 == 0 }