use Digest::MD5 qw(md5_hex);
my $var = "foobar";
print join("::", $var, md5_hex($var)), "\n";