http://qs1969.pair.com?node_id=1167632


in reply to Re^20: Addional "year" matching functionality in word matching script
in thread Addional "year" matching functionality in word matching script

The keys of %csv2hash are the lines:

for (@csv2) {            # for data in @csv2 array
      my ($title) = $_ =~ /^.+?,\s*([^,]+?),/;
      $csv2hash{$_} = $title;
}

[download]

Here, $_ (the current line) is used as a key into %csv2hash.

In Section Seekers of Perl Wisdom