[ic] Syntax Question on Using Cart in UserTags (Perl)

[interchange-users@icdevgroup.org (C.B. Currier)]

Trying to do a loop through a cart inorder to do some SQL lookups.
Having a problem with the fact that I believe the cart is being passed in
but for what ever reason I cannot reference the array properly.
Any suggestions on the below mentioned code is greatly appreciated.
BTW: I am not necessarily getting an error, just not log string being
returned.

C.B.

Code:

UserTag test_calc Routine <<EOF
sub {
	my $itmcount = 0;
	my $itmlst = "";
	my $item = $Carts->{main};
	foreach (@$item){
		$itmcount++;
            $itmlst.= $item->{code};
	}
return $itmlst;
}
EOF