use Storable;
tie $hashref, "Tk::Listbox", $lbox, {'ReturnType' => 'both'};
store $hashref, 'file';
...
$hashref = retrieve('file');