($title, $rest) = split ' ', $_, 2;
@fields = split ' ',$rest;
last two lines === ($title, @fields) = split ' ';
which is almost ($title, @fields) = split;
foreach $keytitle (keys %TITLES) {
if ( grep /$keytitle/, $lookup ) {
$lookup is an arr
I have a reference table that I want to put in a hash and then when I read in a given
line with a matching key,
be able to pick up the array and assign the elements and manipulate the elements (not
while they are part of hash.
Here is how I set up the hash:
%TITLES = ();
open(RTITLE, '/common/
