sub getStringChoose{
  my $chooseList = shift; 
  my $ids        = shift;
  my $list       = shift;

  my @listvalues;
  foreach( @{$ids} ){
    my $id = $_;
    my @exists = grep ($_->{list} eq $list && $_->{value} == $id, @{$chooseList});
    push( @listvalues, @exists);
  }
   
  my @arrayJoin;
  foreach(@listvalues){
    push( @arrayJoin, $_->{text} );

  } 
  return (scalar(@listvalues) > 0) ? join(", ",@arrayJoin) : " - ";
}