my %data;
                                            
    $e = '0';
    while(<$fh>){
    $e++;
          chomp $_;
          my ($key, $val) = split(/\|/, $_);
                                                             
          push @{$data{$key}},$val;
                                                             
          $Grand_Total += "$val";
                                                             
          my $size = scalar(@{$data{$key}}); ## WRONG doesn't print
                                                             
          $Sub_Total[$key] += $data{$key}[$val]; ## WRONG doesn't print
          
         print"Row ($e) / Array Size [$size] key ($key) / Amount ($val) / Sub Total ($Sub_Total[$key]) /  Grand_Total = ($Grand_Total)<hr>";            
                                                             
                                             }