use strict;
use warnings;
use Storable qw(nstore);

my %data;
## sub that loads hash
GetData('data.txt', \%data);

## store to disk
nstore (\%data, "data.nstore");

##</code><code>##

use strict;
use warnings;
use Storable qw(retrieve);

my %data = %{ retrieve("data.nstore") };