Баг в sha1_base64. Причём и в Digest::SHA1 и в Digest::SHA

Так работает -

   use MIME::Base64;
   $Key = MIME::Base64::encode(sha1($data));