Help for this page

Select Code to Download

Select or download this

 main::(-e:1):   0
  DB<1> x <Prefix1={A,B}:{c,d}>
0  'Prefix1=A:c'
...
  DB<2> @keys = <Prefix1={A,B}:{c,d}>

  DB<3> @hash{@keys} = ('value1') x @keys

Select or download this

  DB<22> ($pre,@comb) = split /=|:/, "Prefix1=A,B:c,d"

...
2  'Prefix1=B:c'
3  'Prefix1=B:d'
  DB<25>