Please mark updates to your nodes, see here for why.
I chomped it like this: ... ';AR9 = 'hat ... The single quotation mark of the predecessing word appears in the sam line.
I'd guess the file is terminated by CRLF and your input record separator $/ is a plain LF. One approach to fix this is to set $/ = "\r\n"; before reading the file and the chomp. If you were using a regular open, you could use the :crlf I/O layer: open my $handle, '<:crlf', 'filename.txt' or die $!; (see PerlIO).
In reply to Re^3: Search element of array in another array
by Anonymous Monk
in thread Search element of array in another array
by better
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |