I think the following is cleaner. There's no need to create a separate array. Just shift off the name and map the rest.

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