Select Code to Download

 
fit_data(\@array);
sub fit_data {
...
    print "array contains: ",join(",",@ydata)," \n";
    print "last index is $#ydata \n";
}

use strict;
my @valueArr = (1,2,3,4);
...
    *ydata=$refCopy;
    print "array contains: ",join(",",@main::ydata)," \n";
    print "last index is $#main::ydata \n";}