missing right bracket error or can't find string terminator in perl/sql code

[kswisher@iolinc.net (Swisher, Karl)]

Hello,
	I've been making break through after break through however I am stuck
again.   I'm unable to find a clear solution from the mailing list archieves
for the error in the following code.  I am modifying the flypage.  The first
sql statement appears to work


[perl interpolate=1]
   my $ary =<<'EOF';
	my $ary=[sql type=array]select * from piclist_tbl where picid='[item-code]' [/sql]
EOF
 	my $picsingle=0;
	my $i;
	for ($i=2; $i<105; $i++) {
            	$picsingle = @$ary[$i];
       	  	if ($picsingle ne 0 ) {
			[sql type=list query="select * from products where productid='[perl]$picsingle[/perl]'" ] [/sql]
	  	}
	}
[/perl]

The error.log has this in it:
27.0.0.1 UiIc9JZ4:127.0.0.1 - [13/November/1999:14:06:02 -0500] newstore
/cgi-bin/newstore/82 Safe: Missing right bracket at (eval 115) line 11, at end
of line > syntax error at (eval 115) line 11, at EOF

Also I've tried this:

[perl interpolate=1]
   my $ary =<<'EOF';
	my $ary=[sql type=array]select * from piclist_tbl where picid='[item-code]' [/sql]
EOF
 	my $picsingle=0;
	my $i;
	for ($i=2; $i<105; $i++) {
            	$picsingle = @$ary[$i];
       	  	if ($picsingle ne 0 ) {
                                    my $newline =<<'EOF';
			$newline=[sql type=list query="select * from products where productid='[perl]$picsingle[/perl]'" ]
EOF
[/sql]
 	  	}

	}
[/perl]


With this error result.
127.0.0.1 UiIc9JZ4:127.0.0.1 - [13/November/1999:15:35:54 -0500] newstore
/cgi-bin/newstore/82 Safe: Can't find string terminator " > EOF" anywhere before
EOF at (eval 115) line 10.

	Any help will be appreciated. I'm running
RH 5.2
Minivend 3.14-3
kernel 2.0.36-7
Perl 5.004

Thanks
Karl