while (<FILE>) {
                $match++ if $match;
        if(/$same/){
       # When we see <pattern> start storing the data
        $match = 1;
                        }

      $match = 0 if (/APPLES=*/);
        next if ($match == 1);
        next unless $match;

        s/\<Row AutoFitHeight=*//;

        print "$_";
	}

foreach $o(sort keys %{$application{$key}}){
               
			print $boots{$s}{$o}\n";
                  } 
			else {
                        print "0\n";
                 }
                } 
                print "    $cnt{$s}\n";
                print "    $date\n";
        }
        close (FILE)