# How big is it?
my $fsize = (stat($_))[7]; 
push @sfiles, $fsize;
print "$fsize\n";

##</code><code>##


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";
	 }
    }