@a=();
$b{"beko"}="DEF";

$pa=\@a; # 配列のリファレンス
$pb=\%b; # ハッシュのリファレンス

push @$pa,"ABC"; # 配列の追加

# @$pa=(); 配列を空に
# %$pb={}; ハッシュを空に

print "配列の個数:".@$pa."\n";
print "value:".$pa->[0]."\n";

#print "count:".%$pb."\n";
print "value:".$pb->{"beko"}."\n";