我正在尝试做的基本示例代码：

#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;
sub test()
{
   print "Tested\n";
}

my $test;
my  @temp = (1,2,3);
my $operations = [ 
           [\&test,undef,undef],[\&shift,\$test,\@temp],];

foreach(@$operations){
   my $func = shift $_;
   my $out = shift $_;
   $$out = $func->(@$_);
}

print Dumper $test;

观察到的输出是：

Tested
Undefined subroutine &main::shift called at temp2.pl line 22.

查询 – 是否可以将内置子例程作为引用传递？

已有早期查询,在here中作为子例程引用的函数内置reg.

由于问题被问了大约3年,所以想知道现在是否有任何替代方案.
如果有人解释为什么在这种情况下内置函数和用户定义的子例程之间存在区别,我将不胜感激？