c:\@Work\Perl\monks>perl -wMstrict -MData::Dump -le
"my @array = ('a', 1, 2, 3, 4, 'b', 6, 7, 8);
 ;;
 my %hash = (
   $array[0] => [ @array[ 1 .. 4 ] ],
   $array[5] => [ @array[ 6 .. 8 ] ],
   );
 ;;
 dd \%hash;
"
{ a => [1, 2, 3, 4], b => [6, 7, 8] }