UNIX for Dummies Questions & Answers

1~refno001~blah~blah

1~refno001~blah~good

hold_rec=grep "$ref_no" /root/dev/FILEB

while (<FILEA>) 
{

 if ($run_type eq 'ONE')  {
    BLAH BLAH HERE
    }
elsif ($run_type eq 'TWO') {
     
     $a_rec     = $_;
     undef @myarray;
     @myarray = split(/$tilde/, $a_rec);
     $ref_id = trim($myarray[2]);
     $hold_rec = `grep $ref_id $trn_file`;    ##Here is where the time is taken much for searching in the FILEB=trn_file
     $return_code = $?;

     if ($return_code eq 0) {
        undef @holdarray;                                     ##initialize just before loading the array
        @holdarray     = split(/$tilde/, $hold_rec);
        $holdarray[57] = $upload_array[1];                  
        $holdarray[58] = 1;                                 #Just updating some fields here
        $current_tmstmp = trim(`date +"%Y%m%d_%H%M%S"`);    
        $holdarray[3]  = $current_tmstmp;                    

        print INFILE_TMP join("~",@holdarray)."\n";
        shift(@holdarray);
        print LDFILE join("~",@holdarray)."\n";
      }
     else  {
           $myarray[57] = $upload_array[1]; 
           $myarray[58] = 1;                       
           $current_tmstmp = trim(`date +"%Y%m%d_%H%M%S"`);
           $myarray[3]  = $current_tmstmp;        

           print INFILE_TMP join("~",@myarray)."\n";
           shift(@myarray);                                   
           print LDFILE join("~",@myarray)."\n";
        }
    }
else {
    BLAH BLAH HERE
}
}