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");