Higher-Order Perl door