my $count = 1;
while(<DATA>)
{
             print ++$count;
             print ":$_";
}

__DATA__
apple
snake
cow
dog