sub my_map {
        foreach my $item (@_[1 ..$#_]) {
            apply($_[0], $item);
        }
    }