[Zope] perl scripts Global symbol ?

[chrisf]

I think I have finally gotten perl script up and running ?

Whats wrong with this code

my @res;
for ($self->{f1}->objectValues)
   {
   push(@res, join(": ", $_->id, $_));
   }
join("\n", @res, "done");


Error Type: PerlError
Error Value: syntax error at test line 3, near "self my " Global symbol
"@res" requires explicit package name at test line 3. Global symbol
"@res"
 requires explicit package name at test line 6. Global symbol "@res"
requires explicit package name at test line 8.

I am obviously missing something,

Chris