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

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