use Digest::MD5;
    my $md5    = new Digest::MD5;
    my $digest = $md5->md5_base64( $storable_data, $rand );
    $storable_data .= $digest;