use Storable;
store \%table, 'file';
$hashref = retrieve('file');

##</code><code>##

use Storable qw(nstore store_fd nstore_fd freeze thaw dclone);

 # Storing to and retrieving from an already opened file
store_fd \@array, \*STDOUT;
nstore_fd \%table, \*STDOUT;
$aryref = fd_retrieve(\*SOCKET);
$hashref = fd_retrieve(\*SOCKET);