foreach my $currentremotefilelist (@remoteFilelist) { my $arrayCounter = -1; foreach my $currentlocalfilelist (@return2) { $arrayCounter++; # Increment on every loop iteration next if !defined $currentlocalfilelist; # Skip previously deleted entries #myfile.txt =~ myfile.txt_date my $currentremotefilelistsize = -s $currentremotefilelist; my $currentlocalfilelistsize = -s $logSite.$currentlocalfilelist; $currentlocalfilelist = $logSite.$currentlocalfilelist; if (($currentremotefilelist =~ /^$currentlocalfilelist/i) && ($currentremotefilelistsize == $currentlocalfilelistsize)) { print "$currentremotefilelist and $currentlocalfilelist also $currentlocalfilelistsize and $currentlocalfilelistsize They are Equal and will not be copied\n\n"; delete $return2[$arrayCounter]; } else { print "$currentremotefilelist and $currentlocalfilelist also $currentlocalfilelistsize and $currentlocalfilelistsize are not EQUAL!!\n"; } } }