my $who = shift;
my %whos_items = map { $_, 1 } @_; # the rest are the person's items