Perl倾倒哈希数组

Question

几乎只是从perl开始，并且在找到我错误的地方误解这两个潜艇时遇到了一些麻烦。他们应该读写一个哈希数组。当代码存储单个哈希时，我的代码工作正常，但是因为我试图将它调整为哈希数组，所以它似乎已经非常糟糕了每次只写一个memberDb = []

sub ReadData {
    my($input) = new FileHandle "<$dat_file";
    local($/) = "";
    my($str) = <$input>;
    close $input;

    print "Input: $str";

    my($membersDb);
    eval $str;
    my(@current_members) = @$membersDb;
}

sub WriteData {
    my (@data) = @_;
    my $str = Data::Dumper->Dump([ \@data ], [ '$membersDb' ]);
    my($out) = new FileHandle ">$dat_file";
    print $out $str;
    close $out;
}