> perl -de ''

DB<1> x @array = (1 .. 3)
0  1
1  2
2  3

DB<2> x \(@array, (@array))
0  ARRAY(0x844cad8)
   0  1
   1  2
   2  3
1  SCALAR(0x844e420)
   -> 1
2  SCALAR(0x844ca3c)
   -> 2
3  SCALAR(0x844cb80)
   -> 3

DB<3> x \(@array)
0  SCALAR(0x844e420)
   -> 1
1  SCALAR(0x844ca3c)
   -> 2
2  SCALAR(0x844cb80)
   -> 3

DB<4> x \(@array, ())
0  ARRAY(0x844cad8)
   0  1
   1  2
   2  3