$MAC = MD5->hashhex($secret . MD5->hashex(join '',$secret, @fields) );