13:51 >perl 888_SoPW.pl

Case 1:
call copy(ARRAY(0x1c7dec8))
$VAR1 = [
          [
            'xyz',
            '123'
          ],
          $VAR1->[0],
          $VAR1->[0]
        ];

Case 2:
call copy(ARRAY(0x1c7dec8))
call copy(ARRAY(0x1c7dec8))
call copy(ARRAY(0x1c7dec8))
$VAR1 = [
          [
            'uvw',
            '456'
          ],
          [
            'abc',
            'def'
          ],
          [
            'abc',
            'def'
          ]
        ];

13:51 >