use Digest::MD5 qw(md5_hex);
use Math::Prime::Util ':all';
...
$unique_offering = todigitstring(fromdigits(md5_hex($harvest), 16), 36);