#!/usr/bin/perl -w

# # set variables
@files="A B C";

# # open output files
open (GOOD, "> good.txt");
open (BAD, "> bad.txt");
open (FAIR, "> fair.txt");

# # for each file
while ($file = <@files>) {
  # # open file
  open (INPUT, "< $file");
  # # process each line of file
  while ($line = <INPUT>) {
    chomp $line;
    # # IF line contain strawberries
    if ($line =~ m/Strawberry/) {
      # # Split line into each value
      ($name,$good,$bad,$fair) = split (/ /, $line);
      if ($file =~ m/A/) {
        $sA_good=$good;
        $sA_bad=$bad;
        $sA_fair=$fair;
      }
      elsif ($file =~ m/B/) {
        $sB_good=$good;
        $sB_bad=$bad;
        $sB_fair=$fair;
      }
      elsif ($file =~ m/C/) {
        $sC_good=$good;
        $sC_bad=$bad;
        $sC_fair=$fair;
      }
    }
    # # ELSE IF line contain bananas
    elsif ($line =~ m/Banana/) {
      # # Split line into each value
      ($name,$good,$bad,$fair) = split (/ /, $line);
      if ($file =~ m/A/) {
        $bA_good=$good;
        $bA_bad=$bad;
        $bA_fair=$fair;
      }
      elsif ($file =~ m/B/) {
        $bB_good=$good;
        $bB_bad=$bad;
        $bB_fair=$fair;
      }
      elsif ($file =~ m/C/) {
        $bC_good=$good;
        $bC_bad=$bad;
        $bC_fair=$fair;
      }
    }
    # # ELSE IF line contain plantains
    elsif ($line =~ m/Plantain/) {
      # # Split line into each value
      ($name,$good,$bad,$fair) = split (/ /, $line);
      if ($file =~ m/A/) {
        $pA_good=$good;
        $pA_bad=$bad;
        $pA_fair=$fair;
      }
      elsif ($file =~ m/B/) {
        $pB_good=$good;
        $pB_bad=$bad;
        $pB_fair=$fair;
      }
      elsif ($file =~ m/C/) {
        $pC_good=$good;
        $pC_bad=$bad;
        $pC_fair=$fair;
      }
    }
    # # ELSE IF line contain oranges
    elsif ($line =~ m/Orange/) {
      # # Split line into each value
      ($name,$good,$bad,$fair) = split (/ /, $line);
      if ($file =~ m/A/) {
        $oA_good=$good;
        $oA_bad=$bad;
        $oA_fair=$fair;
      }
      elsif ($file =~ m/B/) {
        $oB_good=$good;
        $oB_bad=$bad;
        $oB_fair=$fair;
      }
      elsif ($file =~ m/C/) {
        $oC_good=$good;
        $oC_bad=$bad;
        $oC_fair=$fair;
      }
    }
  }
}

# # calc totals
$tgA=($sA_good + $bA_good + $pA_good + $oA_good);
$tgB=($sB_good + $bB_good + $pB_good + $oB_good);
$tgC=($sC_good + $bC_good + $pC_good + $oC_good);
$tbA=($sA_bad + $bA_bad + $pA_bad + $oA_bad);
$tbB=($sB_bad + $bB_bad + $pB_bad + $oB_bad);
$tbC=($sC_bad + $bC_bad + $pC_bad + $oC_bad);
$tfA=($sA_fair + $bA_fair + $pA_fair + $oA_fair);
$tfB=($sB_fair + $bB_fair + $pB_fair + $oB_fair);
$tfC=($sC_fair + $bC_fair + $pC_fair + $oC_fair);

# # print data to output files
print GOOD "GOOD\n";
print GOOD "A B C\n";
print GOOD "Strawberry\t$sA_good\t$sB_good\t$sC_good\n";
print GOOD "Banana    \t$bA_good\t$bB_good\t$bC_good\n";
print GOOD "Plantain  \t$pA_good\t$pB_good\t$pC_good\n";
print GOOD "Orange    \t$oA_good\t$oB_good\t$oC_good\n";
print GOOD "===================================\n";
print GOOD "Totals    \t$tgA\t$tgB\t$tgC\n";

print BAD "BAD\n";
print BAD "A B C\n";
print BAD "Strawberry\t$sA_bad\t$sB_bad\t$sC_bad\n";
print BAD "Banana    \t$bA_bad\t$bB_bad\t$bC_bad\n";
print BAD "Plantain  \t$pA_bad\t$pB_bad\t$pC_bad\n";
print BAD "Orange    \t$oA_bad\t$oB_bad\t$oC_bad\n";
print BAD "===================================\n";
print BAD "Totals    \t$tbA\t$tbB\t$tbC\n";

print FAIR "FAIR\n";
print FAIR "A B C\n";
print FAIR "Strawberry\t$sA_fair\t$sB_fair\t$sC_fair\n";
print FAIR "Banana    \t$bA_fair\t$bB_fair\t$bC_fair\n";
print FAIR "Plantain  \t$pA_fair\t$pB_fair\t$pC_fair\n";
print FAIR "Orange    \t$oA_fair\t$oB_fair\t$oC_fair\n";
print FAIR "===================================\n";
print FAIR "Totals    \t$tfA\t$tfB\t$tfC\n";

# # close files
close (GOOD);
close (BAD);
close (FAIR);
close (INPUT);

exit 0;