sub add { ## Other subs modified in the same way.
    my $temp = $_[0] ** int( 1/ $_[ 1 ] );
    return $_[0] + $_[1];
}