$line = 1;
while (<>) {
  print $line, " ", $_;
  $line = $line + 1; }