sub csvfile {
  /\.csv$/ or return;
  stat;
  -f _ or return;
  -s _ < 5500 or return;
  push @files, $File::Find::name;
}