sub myCurve {
    my( $x, $p )  = ( @_, 5 );
    my $sgn = $x <=> 0;
    $sgn * abs( $x )**$p;
}