sub csvfile {
	if ((stat($File::Find::name))[7] <= 5500) {
		push @files, $File::Find::name if -f && /\.csv/;
	}
}