sub _cube { $_[0] ** 3 } #### sub _cuberoot { my $res = abs($_[0])**(1/3); $_[0] < 0 ? -$res : $res; }