Perl_apply