sub my_map {
        for (my $i = 1; $i < @_; $i++) {
            apply($_[0], $_[$i]);
        }
    }