为什么“不是ARRAY参考”错误？

I have this script

我有这个脚本

#!/usr/bin/perl

use strict;
use warnings;

use yy;

my $data = [
    ["aax", "ert", "ddd"],
    ["asx", "eer", "kkk"],
    ["xkk", "fff", "lll"],
    ["xxj", "vtt", "lle"],
    ];

use Test::More tests => 4;

is(yy::type1_to_type2($data, 'aax'), 'ert');
is(yy::type1_to_type3($data, 'asx'), 'kkk');
is(yy::type2_to_type3($data, 'fff'), 'lll');
is(yy::type3_to_type1($data, 'lle'), 'xxj');
#!/usr/bin/perl