Select Code to Download

  DB<158> @head1= @{$arr1->[0]}
 => ("name", "pos", "loc", "age")
...

  DB<163> %pos
 => ("dog", 5, "loc", 2, "car", 4, "name", 0, "pos", 1, "age", 3)

  DB<168> @n= ("") x $p    #default
 => ("", "", "", "", "", "")
...

  DB<173> @n
 => ("", "", "", 3, "a1", "grr")