my $count = $. - 1;
map {++$count; your statements here} <>;