my $salt1 = pack("C*",0x77,0x35,0x36,0xDC,0xC3,0x0E,0x2E,0x84,0x7E,0x0E,0x75,0x29,0xE2,0x34,0x60,0xCF);

my $SaltHexString = "773536dcc30e2e847e0e7529e23460cf";
my $salt2 = pack 'H*', $SaltHexString;

print "Gleich gut gesalzen\n" if $salt1 eq $salt2;