#!/usr/local/bin/perl

for($i=0;$i<2000;$i++) {
   print $i," very long line qwertrytuiop asdfdsfdfd dfdsafa\n"; 
}

