FreezeThaw, Storable, and Data::Dumper could all be used here - just write the serialized data to a file when the program ends, and read it back when it starts up:

use FreezeThaw qw/freeze thaw/;

my $dataStruct;
if (open(DATA, "frozen.data")) {
  my $ice = <DATA>;
  ($dataStruct) = thaw($ice);
  close DATA;
}

# .... do some stuff with $dataStruct

open (DATA, ">", "frozen.data") or die "Failed to write: $!";
print DATA freeze($dataStruct);
close DATA;
[download]