By the way, if you wanted to do this with the Data::Dumper module, start with something like this:

use Data::Dumper;
my %sess_hist = ();

sub load_history    {
    %sess_hist = %{do($hist_file)} or die 'failed to load history';
}

sub save_history    {
    local $Data::Dumper::Indent = 1;
    open  HF, '>', 'some_file.txt';
    print HF Dumper \%sess_hist;
    close HF;
}
[download]