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

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


# old version

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