.
.  
  if ( $class eq 'cmdb_ci_appl'){
    $arx_data{$u_ci}{'name'} = $name;  
  } elsif (! $seen{$app}{$ip}++) {
    push @{$arx_data{$app}{'members'}},$ip;
  }
  $t->purge ; # add this line to free memory   
}