@ids = (32,36,38,34,35);
@bg = trans_id_array(\@ids,$varpar1,$varpar2);
sub psh_trans_id_array
{
 @ids = @{$_[0]};
 $var1 = $_[1];
 $var2 = $_[2];
 foreach (@ids) {
   $idss .= ",".$_;
 }
}