$ perl -E 'say join",",map{int rand 1000000} 1..20 for 1..1000000' > sample.csv