DB<1> @a = qw(foo bar baz)

  DB<2> @h{@a} = (1) x @a

  DB<3> p $s = () = @a
3
  DB<4> p $s = () = (1, 2, 3, localtime())
12
  DB<5> p $s = () = %h
6
  DB<6> p $s = () = getpwuid($<)
9
  DB<7> p $s = () = sort @a
3