use Storable; use Storable qw(freeze thaw); $buff = freeze(\@rows); #对象序列化 @rows = @{thaw($buff)}; #对象反序列化