Daten mit Storable speichern

[Take]

Moin,

ich verwende das Modul Storable um Daten meines Scripts zu speichern und beim nächsten Aufruf wieder zur Verfügung zu haben. Dafür verwende ich folgendes zum Schreiben:

  
@foo = ("foo", "bar", "foo1", "bar1");  
@bar = ("foo2", "bar2", "foo3", "bar3");  
  
%complete = (foo => \@foo, bar => \@bar);  
  
open (DB, ">db.db");  
store_fd(\%complete, *DB);  
close (DB);  

Und zum Einlesen:

  
open (DB, "<db.db");  
%complete = %{fd_retrieve(*DB)};  
close (DB);  
  
@foo = %{$complete{"foo"}};  
@bar = %{complete{"bar"}};  

Das wird bei vielen Variablen recht unübersichtlich (vorallem beim dereferenzieren nach dem Einlesen). Über Vorschläge zur Übersichtlichkeitsoptimierung würde ich mich daher freuen! :D

Gruß,
Take