#!/usr/bin/perl
use strict;

my @lotsuffix;
my @date;

capture_LOTSUFFIX_DATE("test");
        print "LOTSUFFIX1= $lotsuffix[1]\n";    
        print "LOTSUFFIX2= $lotsuffix[2]\n";
        print "LOTSUFFIX3= $lotsuffix[3]\n";
        print "LOTSUFFIX4= $lotsuffix[4]\n";
        print "LOTSUFFIX5= $lotsuffix[5]\n";
        print "LOTSUFFIX6= $lotsuffix[6]\n";
        print "LOTSUFFIX7= $lotsuffix[7]\n";
        print "LOTSUFFIX8= $lotsuffix[8]\n";
        print "LOTSUFFIX9= $lotsuffix[9]\n";
        print "LOTSUFFIX10= $lotsuffix[10]\n";


sub capture_LOTSUFFIX_DATE {

        my $counting = 1;
        my $line;


        for ($counting = 1; $counting <= 10 ; $counting++ ) {
                print "reports_${counting}_${_[0]}.txt\n";
                     open(FH, "< $HISTORY/reports_${counting}_${_[0]}.txt" ) or die $!;
                             while( $line = <FH> ) {
                                     my @Fld = split(' ', $line );
                                     if ( $Fld[1] eq 'LOTSUFFIX=' ) {
                                             $lotsuffix[$counting] = $Fld[2];
                                                print "$lotsuffix[$counting]\n";
                                     }
                                    if ( $Fld[1] eq 'DATE=' ) {
                                         $DATE[$counting] = $Fld[2];
                                         my @fields = split(/-/, $DATE[$counting]);
                                         $date[$counting] = sprintf ("%s-%s",$fields[1],$fields[2]);
                                        print "$date[$counting]\n";
                                     }
                             }
                             close FH;
             }

                return (@lotsuffix , @date); 
 
}