use strict;
use warnings;
use v5.16;

my %docs;
my @data;

dbmopen %docs, 'mydocs', undef or die $!;

open FH, 'C:/perlfunc.pod' or die $!;
@data = <FH>;

for (@data) {
    if (/^item\s+(\w+).*$/) {
        $docs{$1} = $.;
    }
}
dbmclose %docs;