use Storable;
$serialized = freeze \%structure;
# Write $serialised to a file.

# Time passes

# Read $serialised from a file
%structure = %{thaw($serialized)};