my @list;
my $rec = {
title => '11',
genre => '77',
};
push(@list, \$rec);
&test(\@list);

sub test(\@) {
my ($lst) = @_;
foreach my $aaa (@$lst) {
# ここでデリファレンスする方法をおしえてください。
print $aaa->{title};
}
}
よろしくお願いします。