while (($endstore[$ctrend][0],$endstore[$ctrend][1],$endstore[$ctrend][2],$endstore[$ctrend][3],$endstore[$ctrend][4])= my @arr)= $sth2->fetchrow_array() ) {
  my ($field1, $field2, $field3,$field4,$field5)=@arr;
  $endflag=2;
  print STDOUT "Field 1: $field1  Field 2: $field2  Field 3: $field3 Field 4:$field4 Field5: $field5\n";
  ++$ctrend;
  }

##</code><code>##

  while (my @arr = $sth2->fetchrow_array() ) {
    # Keep a copy of the data for future use
    ($endstore[$ctrend][0],$endstore[$ctrend][1],$endstore[$ctrend][2],$endstore[$ctrend][3],$endstore[$ctrend][4])= @arr;
    my ($field1, $field2, $field3,$field4,$field5)=@arr;
    $endflag=2;
    print STDOUT "Field 1: $field1  Field 2: $field2  Field 3: $field3 Field 4:$field4 Field5:$field5\n";
    ++$ctrend;
  }

##</code><code>##

  while (my @arr = $sth2->fetchrow_array() ) {
    # Keep a copy of the data for future use
    ($endstore[$ctrend][0], $endstore[$ctrend][1],
     $endstore[$ctrend][2], $endstore[$ctrend][3],
     $endstore[$ctrend][4]) = @arr;

    my ($field1, $field2, $field3, $field4, $field5) = @arr;
    $endflag=2;
    print STDOUT "Field 1: $field1  Field 2: $field2  "
    .            "Field 3: $field3  Field 4: $field4  "
    .            "Field 5: $field5\n";
    ++$ctrend;
  }