8.2. How do I delete an item from the cart in Perl?

(Answered by Racke)

[calc] @$Items = grep {$_->{code} ne '123.456.789'} @$Items [/calc]