foreach my $key (keys (%{$sess_ref}))
{
	if ($key =~ /^sco_/) {
# ok this is a Shopping Cart Ordered Item, added to the list
	}
}