I think DBM::Deep would help. With it, you'd put your %data on disk, basically. Your code would be mostly the same except:

• my(%data) would be my $data = DBM::Deep->new( "foo.db" );
• $data{x} would be $data->{x}
• keys %data would be keys %$data