Among the reasons I could think of not implementing a function in Perl's core are:
The feature is rarely needed (avoid core bloat).
The feature is easy to implement (the user is expected to do it quickly and correctly).
The feature is extremely complicated to implement (avoid core bloat).
Wanting a deep copy to prevent unwanted data corruption (e.g. when some object method returns some nested structure being a "original"), I cannot find any of the reasons above to apply. That makes me wonder why there is no deep copy function in Perl core.