use Digest::xxHash64 qw[ xxHash64 ];
use Mime::Base64;

my $data = ...; ## from wherever

my $xxH64B64 = encode_base64( pack 'Q', xxHash64( $data ) );