Thanks for your advice, however it still won't work I'm getting 0 printed for

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

Also instead of a 1MB file I'm getting a 700! MB file with this bit... so something isn't right at all :-(

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