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