Select Code to Download

#!/usr/bin/env perl

...
$serial_data_for->@{@keys} = @vals;

store($serial_data_for, $hashfile);

#!/usr/bin/env perl

...
$serial_data_for->@{@keys} = @vals;

store($serial_data_for, $hashfile);

ken@titan ~/tmp
$ rm pm_11148149_storable_first_run.sto
...

ken@titan ~/tmp
$

sub DoIHaveThisData {
    my ($hash, $key) = @_;
    return exists $hash->{$key};
}