$pinc=join("$data1","$data2","$data3");
$digest2 = md5_hex($pinc);
$pin=unpack("%32C*",$digest2) % 65535;

print "[$pinc],[$digest2],[$pin]";

##</code><code>##

[ilikeyoumy@email.comilikepie]
[be256d5090d0875e7812428991d70026]
[1961]