DB<32> use Data::Dump qw/dd/

  DB<33> @a=1..12; dd { map { $_ => [splice @a,0,3] } 1..4  }
{ 1 => [1, 2, 3], 2 => [4, 5, 6], 3 => [7, 8, 9], 4 => [10, 11, 12] } ...