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

sub myCurveX(){
 my ($arrayref1, $arrayref2,$arrayref3, $v1, $v2) = @_;