fit_data(\@array);
sub fit_data {
	my $refCopy=$_[0];
	*ydata=$refCopy;
	print "array contains: ",join(",",@ydata)," \n";
	print "last index is $#ydata \n";
}