my @i;

while (@array) {
        last if (scalar @array < 9);
        push @i, shift @array for 0 .. 8;
        print join ("\n", @i);
        print "\n------------------------------------------\n";
        @i = ();
        }