# file consisting of 50 1s
perl -le 'foreach my $i ( 1 .. 50 ) { print q{1}; }' > file_1.txt