my $prefix = 1;

while (<>)
{
    print "$prefix: $_";
    $prefix++ if ( eof );
}