diff --git a/Tie-RefHash-1.40.tar.gz b/Tie-RefHash-1.40.tar.gz
new file mode 100644
index 0000000000000000000000000000000000000000..212004d11ad105c38ab9e25ee8671acfd51ee8e5
Binary files /dev/null and b/Tie-RefHash-1.40.tar.gz differ
diff --git a/perl-Tie-RefHash.spec b/perl-Tie-RefHash.spec
new file mode 100644
index 0000000000000000000000000000000000000000..239c51ce3363b929f3ae790d62d7ced95b168edf
--- /dev/null
+++ b/perl-Tie-RefHash.spec
@@ -0,0 +1,76 @@
+%define        anolis_release 1
+# Perform optional tests
+%bcond_without perl_Tie_RefHash_enables_optional_test
+
+Name:           perl-Tie-RefHash
+Version:        1.40
+Release:        %{anolis_release}%{?dist}
+Summary:        Use references as hash keys
+License:        GPL+ or Artistic
+URL:            https://metacpan.org/release/Tie-RefHash
+Source0:        https://cpan.metacpan.org/authors/id/E/ET/ETHER/Tie-RefHash-%{version}.tar.gz
+BuildArch:      noarch
+BuildRequires:  coreutils
+BuildRequires:  make
+BuildRequires:  perl-generators
+BuildRequires:  perl-interpreter
+BuildRequires:  perl(:VERSION) >= 5.6
+BuildRequires:  perl(Config)
+BuildRequires:  perl(ExtUtils::MakeMaker) >= 6.76
+BuildRequires:  perl(strict)
+BuildRequires:  perl(warnings)
+# Run-time:
+BuildRequires:  perl(Carp)
+# Scalar::Util || overload
+BuildRequires:  perl(overload)
+# Scalar::Util skipped to exhibit overload fallback
+BuildRequires:  perl(Tie::Hash)
+# Tests:
+BuildRequires:  perl(File::Spec)
+BuildRequires:  perl(Storable)
+BuildRequires:  perl(Test::More)
+%if %{with perl_Tie_RefHash_enables_optional_test}
+# Optional tests:
+BuildRequires:  perl(Data::Dumper)
+BuildRequires:  perl(threads)
+%endif
+Requires:       perl(:MODULE_COMPAT_%(eval "`perl -V:version`"; echo $version))
+Requires:       perl(overload)
+Suggests:       perl(Scalar::Util) >= 1.01
+Conflicts:      perl-interpreter < 4:5.30.1-451
+
+%description
+This module provides the ability to use references as hash keys if you first
+"tie" the hash variable to this module. Normally, only the keys of the tied
+hash itself are preserved as references; to use references as keys in
+hashes-of-hashes, use Tie::RefHash::Nestable, included as part of
+Tie::RefHash.
+
+%prep
+%setup -q -n Tie-RefHash-%{version}
+%if !%{with perl_Tie_RefHash_enables_optional_test}
+rm t/refhash.t
+perl -i -ne 'print $_ unless m{^t/refhash\.t}' MANIFEST
+%endif
+
+%build
+perl Makefile.PL INSTALLDIRS=vendor NO_PACKLIST=1 NO_PERLLOCAL=1
+%{make_build}
+
+%install
+%{make_install}
+%{_fixperms} $RPM_BUILD_ROOT/*
+
+%check
+unset PERL_CORE
+make test
+
+%files
+%license LICENCE
+%doc Changes CONTRIBUTING README
+%{perl_vendorlib}/*
+%{_mandir}/man3/*
+
+%changelog
+* Thu Apr 21 2022 yuanhui <yuanhui@linux.alibaba.com> - 1.40-1
+- Init perl-Tie-RefHash for anolis os 23