my %hoa = map { $array[$_], [ @array[ $_+1 .. $_+2 ] ] } 
	grep { !($_ % 3) } 0 .. $#array;