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