my @headerArray = "a,b,c,d,e,f,g,h,i,j,k";
my $headerArrayRef = \@headerArray;

...

my $headingAref = "$headerArrayRef";

...

    my @headerArrayCopy = @$headingAref;
    print ($file "@headerArrayCopy\n"); #adds header

##</code><code>##

my $headerArrayRef = [ "a,b,c,d,e,f,g,h,i,j,k" ];

##</code><code>##

    for ($currentIndex >= $readLineFrom and $currentIndex <= $readLineTo){

##</code><code>##

    if ($currentIndex >= $readLineFrom and $currentIndex <= $readLineTo){

##</code><code>##

    if ( $readLineFrom .. $readLineTo ) {