sub myCurve(@@@$$);
$my_exp = myCurve(\@my_arx,\@my_ary,\@my_arz,$my_v1,$my_v2);

sub myCurveX(@@@$$)
{
my $my_y = pop;
my $my_x = pop;
my ($my_xar,$my_yar,$my_zar) = @_;
my @local_x = @$my_xar;
my @local_y = @$my_yar;
my @local_z = @$my_zar;
# do some stuff
return $my_calc;
}