$ perl -ne 'chomp; for my $let (A..Z) { print "$_ ". "foobar" x 200, " $let\n" }' words.txt > test_file.txt $ wc test_file.txt 2959034 8877102 3586152466 test_file.txt