sub PI() { 4 * atan2(1, 1) }
use constant SOMENUM => rand(4);