foreach my $p (@allpathlisting) #Foreach line (path found) $p in the array @allpathlisting
    {
    #Write each line in the array to Paths.bak
    print LIST "$p\n"; 
	foreach my $s (@sfiles)
	 {
		 print LIST "$s\n";
	 }
    }