my ($who, $items) = @_;

You seem to expect an array ref in $items, actually, it will be just the second argument (first item of e.g. @gilligan), the rest will be discarded. Why not

my ($who, @items) = @_;
[download]

then you could map ... @items without needing to dereference.