my $getAccumsForAcct = qq{ select distinct usage_acum_seq_nbr from svc_price }; my $getAccums = $lda->prepare($getAccumsForAcct); my $sbscrp_id='0032581923'; if(defined($getAccums)) { $getAccums->execute(); while (my @accums = $getAccums->fetchrow_array() ) { } foreach (@accums) { int returnCode = SUCCESS; my $xmlFile = "GetUsgSummary_" . $acct_nbr . $_.".xml"; createXmlForUpd( $xmlFile, $acct_nbr,$sbscrp_id ); $returnCode = invokeServer( $acct_nbr , $xmlFile ); if ( $returnCode != SUCCESS ) { return $returnCode; } return $returnCode; } }