Is this simpler?

BEGIN
{
   my @array_containing_u = ("u");
   my @array_containing_v = ("v");
   my @array_starting_with_or = ("or");
   push @array_starting_with_or, \@array_containing_u;
   push @array_starting_with_or, \@array_containing_v;

   CreateCmdLineVar('$Dut', \@array_starting_with_or);

   my @another_array_containing_v = ("v");

   CreatejeVar('$CM_etadId', \@another_array_containing_v, undef);

   my @yet_another_array_containing_v = ("v");

   CreatejeVar('$ACM_Id', \@yet_another_array_containing_v, undef);
}
[download]