sub loadData {
    my $file = shift;
    my %localhash = ();
    tie %localhash , 'Tie::Persistent', $file , 'rw';
    untie %localhash;
}