my $line_count=1;
while (<FILEHANDLE>)
{
   print $line_count++, " :$_"; 
}