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