for my $line (0..$length) {  #prints length + 1 lines.