use strict;
use Digest::MD5 qw(md5);

my $d = md5("somerandomdata");
my $f = join "", map sprintf ("%03d", ord $_), split "", $d;

print $f;