[ic] perl error setting scratch variable

[interchange-users@interchange.redhat.com (interchange-users@interchange.redhat.com)]

If anyone can look at this and tell me where the error is I would really
appreciate it.
Here is the code:

[perl tables="userdb"]
  @subscriptions = split(/\s+/, $Tag->data('userdb', 'mail_list',
$Values->{mv_username});
  foreach $my_item (@subscriptions) {
    $Tag->set('subscriptions', $my_item . '=Y' );
  }
[/perl]

I get the following error in my error.log:

-bin/store3/subscriptions.html Safe: syntax error at (eval 203) line 2, at
EOF
>
>
>   @subscriptions = split(/\s+/, $Tag->data('userdb', 'mail_list',
$Values->{mv_username});
>   foreach $my_item (@subscriptions) {
>     $Tag->set('subscriptions', $my_item . '=Y' );
>   }
>
>

I am a little sketchy on the whole using ic tags as perl code thing but am i
using it correctly or what?

thanks
mike k.