perl -wE 'for (1..10000) {say join ",", map int rand 1000, 1..35}' > input