for (6963..6965){
   push @items,SOAP::Data->name(
   "item"=> \SOAP::Data->value(
   SOAP::Data->name("Item"=> $_)
  ));
};
.
.
"SelectItems"   => $items, 

##</code><code>##

open IN,'<', $path_file 
  or die "Could not open $path_file : $!";
my @device = ();
while (<IN>){
  if (m/(SEP[0-9A-Z]+)/i){
    push @device,$1;
  }
}
close IN;

##</code><code>##

my $data  = SOAP::Data->name('CmSelectionCriteria' ,  => \%select);