Почему ошибка «Не ссылка на массив»?

Question

У меня есть этот скрипт

#!/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');

который использует этот модуль

package yy;

sub typeX_to_typeY {
    my ($x, $y, $data, $str) = @_;

    foreach (@$data) {
    if ($_->[$x - 1] eq $str) {
        return $_->[$y - 1];
    }
    }

    return;
}

sub type1_to_type2 { typeX_to_typeY(1, 2, @_) }
sub type1_to_type3 { typeX_to_typeY(1, 3, @_) }
sub type2_to_type1 { typeX_to_typeY(2, 1, @_) }
sub type2_to_type3 { typeX_to_typeY(2, 3, @_) }
sub type3_to_type1 { typeX_to_typeY(3, 1, @_) }
sub type3_to_type2 { typeX_to_typeY(3, 2, @_) }

1;

и выдает эту ошибку

Not an ARRAY reference at yy.pm line 6.
# Looks like your test died before it could output anything.

Строка, на которую он жалуется, это

foreach (@$data) {

Разве это не способ передачи ссылки на массив?

Что я делаю не так?

Answer 1

Вы создаете ссылку на ссылку, так как $data уже является ссылкой на массив - во-первых, это скаляр, а во-вторых, вы использовали квадратные скобки для инициализации ее значения. Таким образом, измените ваши звонки, чтобы использовать $data вместо \$data.

Answer 2

$data = [] является ссылкой на массив.Используя \$data, вы создаете ссылку на скаляр.
Измените код на:

is(yy::type1_to_type2($data, 'aax'), 'ert');
...