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