my ( $AcctNbr, $CycCd, $CycEndDt  );
					my $dly1 = $lda ->prepare("select acct_nbr,cycle_cd,cycle_end_dt  from USAGE_FLATF_DLY_INDEX_1 where acct_nbr= ? order by cycle_end_dt ");
					
					$dly1->bind_param(1,$Acct);
					
					
					   $dly1->execute();
						$dly1->bind_col(1,\$AcctNbr);
						$dly1->bind_col(2,\$CycCd);
						$dly1->bind_col(3,\$CycEndDt);

					while ( $dly1->fetchrow_arrayref()) 
					{

						
						print ("Acct Nbr is $AcctNbr ,Cycle cd is $CycCd,cycle end date is $CycEndDt ");
						rerateandupdate($AcctNbr);
						last;
					}