Hi,

Does this give you any ideas? Questions?

itemElemIt( '...items.txt', '...elem.txt', \@myarr );
sub itemElemenIt {
   my( $itemfile, $elemfile, $myarr ) = @_;
   for my $lookFor ( @$myarr ){
       ... 
       lookIn( $itemfile, $lookFor );
   }
}
sub lookIn {
    my( $file, $keyword ) = @_;
    my @ret;
    while(<$fh>){
        push @ret, $_ if /\Q$keyword\E/;
    }
    return @ret;
}
[download]