perl新手,请教一个%hash问题,感谢高手指点迷津

#! /usr/bin/perl
use strict;
use warnings;

my %hash;
dbmopen(%hash,"hi",0666)||die "cannot open!";
$hash{"cache"}=['11','2','4','5','6'];
while (my ($key,$val)= each(%hash))
{
print $key."=".$hash{$key}[0];
}
dbmclose(%hash);
老是显示Can't use string ("ARRAY(0x3f3db0)" as an ARRAY ref while "strict refs" in use at 这行print $key."=".$hash{$key}[0];

在线等..

hash的key只能是字符串，你把一个引用当key，那存下来的就是那个引用的字符串表示形式。


dbmopen我没有用过。