fileA.txt contains what you listed as File A in the question. I put the content of File B into __DATA__.

#!/usr/local/bin/perl -w
use strict;

my(%products) = ();

open(my $fh, '<', './fileA.txt') || die "Could not read fileA.txt: $!\
+n";
while(<$fh>){
    chomp;
    my($key, $value)=split(/\|/);
    $products{$key} = $value;
}
close($fh);

my(@groups)=();
{
    local $/;
    my $string = <DATA>;
    @groups = split(/(?=Group)/, $string);
}

foreach (@groups){
    my $name;
    if(m/Group Name: (.+)/){
        $name = $1;
    }else{
        print STDERR "Could not find group name\n";
        next;
    }
    my(@prods);
    if(m/Product Name:\n(.*)\Z/ms){
        my $prod = $1;
        @prods = split(/\n/, $prod);
    }else{
        print "$name\n";
        print STDERR "Group $name didn't have any products\n";
        next;
    }
    print "Group ".$name."\n";
    my $total = 0;
    foreach (@prods){
        print "$_ $products{$_}\n";
        $total += $products{$_};
    }
    print "Total ".join('+', @prods)." = $total\n";
}

__DATA__
Group Name: Small
Junk: lll
Product Name:
AAA
BBB
Group Name: Big
Junk: ggg
Product Name:
AAA
CCC
DDD


#output
Group Small
AAA 10
BBB 20
Total AAA+BBB = 30
Group Big
AAA 10
CCC 30
DDD 40
Total AAA+CCC+DDD = 80

[download]
May the Force be with you

In reply to Re: Extract varibles from 2 text files and make a report by JediWizard
in thread Extract varibles from 2 text files and make a report by Anonymous Monk

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.