#!/usr/bin/perl -w
# line_count.pl

while ($val = <>){
  chomp $val;
  $line = $line + 1;
  print "$line:\t$val\n";
}