first pass

while (@array) {
   my ($key, @vals) = splice @array, 0, 3;
   $hash{$key} = [ @vals ];
}
[download]

assuming you no longer need the original array once you're done.