[perl] 序列化和反序列化

use Storable;
use Storable qw(freeze thaw);

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