my $member = $appendMemberArr[2];
2555  print "member->fileName=".$member->fileName()."\n";

##</code><code>##

use Archive::Zip;
my $fZipIn = Archive::Zip->new($fSource) or die "### ERROR $thisFunc(".__LINE__."): FAILED TO CREATE ZIP FOR $fSource\n";
my @zMemberArr = $fZipIn->members();
# loop here for processing each member [stored in $member]
push @srcArr, ($member);

CopyFile(\@idArr,\@cmdArr,\@srcArr,\@destArr,[]);
}

sub CopyFile
# the bit we like is $_[2]
{
  my @srcArr = @{$_[2]};

  # looping through each @srcArr - counter is $c
  
  
  print $gfLog "append found $srcArr[$c] ".$srcArr[$c]->fileName()."\n";
  if ($idArr[$c] eq "ZIP") {
    print "contents>>>\n".$srcArr[$c]->contents()."\n<<<contents\n"; # <=== BUT THIS WORKS FINE
  }
  
  # adding it to the appendArr for later processing
  push @appendArr,("$idArr[$c],$command,$srcArr[$c],$destArr[$c],$cmdArgs");

  # lots of processing later, we want to process our appendArr
	# 0 is type
	# 1 is command
	# 2 is source
	# 3 is dest
	# 4 is file commands
  my $fAppend;

  foreach $fAppend (@appendArr) {
    print $gfLog "fAppend=$fAppend\n";
    (my @appendMemberArr) = split(/,/,$fAppend);
    print $gfLog "$thisFunc: Processing append: $appendMemberArr[0] $appendMemberArr[2]\n";
		
    mkpath(dirname $appendMemberArr[3]) if (! -d dirname($appendMemberArr[3]));

    if ($appendMemberArr[0] eq "ZIP") {
      my $member = $appendMemberArr[2];
      print "member->fileName=".$member->fileName()."\n"; # <=== THIS IS THE ERROR

      # other processing
    }
}