use strict; 
use warnings; 

use Storable; 
use Data::Dumper; 

print Dumper(Storable::thaw($x));