File Perl

use Storable;
%hash = (
    meat => turkey,
    drink => tea,
    cheese => colby,
);
store(\%hash, "hash.dat");
%hash2 = %{retrieve("hash.dat")};
print $hash2{drink};