The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
[% # $Id: array,v 1.2 2004/12/05 11:57:46 jv Exp $ -%]
[%

WRAPPER table/edge;

    i = 0;
    FOREACH val IN array;
	INCLUDE debug/struct key=i val=val;
	i = i + 1;
    END;

END;

-%]