my @array = ([$str_1_1, $str_1-2], [$str_2_1, $str_2_2]);


##</code><code>##

  DB<1> @array = (["str_1_1", "str_1-2"], ["str_2_1", "str_2_2"])
  DB<2>
  DB<2> x @array
0  ARRAY(0x253a70)
   0  'str_1_1'
   1  'str_1-2'
1  ARRAY(0x58f8a8)
   0  'str_2_1'
   1  'str_2_2'
  DB<3> x $array[1]
0  ARRAY(0x58f8a8)
   0  'str_2_1'
   1  'str_2_2'
  DB<4>  p "$array[1][$_] \n" for 0..1
str_2_1
str_2_2