Shell Programming and Scripting

#!/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); 
 
}

$[ = 1;

LOTSUFFIX1= AAAAA
LOTSUFFIX2= BBBBBB
LOTSUFFIX3= NIL
LOTSUFFIX4= NIL
LOTSUFFIX5= NIL
LOTSUFFIX6= NIL
LOTSUFFIX7= NIL
LOTSUFFIX8= NIL
LOTSUFFIX9= NIL
LOTSUFFIX10= NIL

DATE1= 29-Jun
DATE2= 29-Jun
DATE3=
DATE4=
DATE5=
DATE6=
DATE7=
DATE8=
DATE9=
DATE10=

my @Fld = split(' ', $line );
if ( $Fld[0] eq 'LOTSUFFIX=' ) {
          $lotsuffix[$counting] = $Fld[1];
          print "$lotsuffix[$counting]\n";
}