Shell Programming and Scripting

my $getaccts = $lda->prepare("select distinct  usage_acct_seq_nbr 
  from svc_price sp,svc_agrmnt_line_item sali,sbscrp_Asgm sa 
 where sp.free_usage_across_acct_ind in ('Y','A') 
      and sp.svc_name=sali.svc_name 
     and sp.comm_svc_area_id=sali.comm_svc_area_id 
    and sp.charge_type_cd='F' 
    and sp.svc_price_expr_dt is null 
    and svc_agrmnt_trmntn_dt is null 
       and sali.sbscrp_id=sa.sbscrp_id 
    and sa.sbscrp_asgm_expr_dt is null and acct_nbr=?");
    
$getaccts->bind_param(1,$currAcct);
   	print (" getaccts is $getaccts \n ");

	my $sbscrp_id='0032581923';
	my @accts;
	my $returnCode = ERROR;
	if(defined($getaccts))
	{
		$getaccts->execute()|| logDBIError(" execute failed for coll_acct ");

		while ( @accts = replaceNils($getaccts->fetchrow_array() ) ) {

			         print ("Acct = $_ \n");


		}

}