print "Number of lines read: ", 1+$#lines, "\n";
for my $i (0..$#lines) {
  print "line $i is: $lines[$i]\n";
}