use Clone 'clone';

my $alt = {
  array => [1,2],
  code => sub{ printf "alt %s\n", shift }
};

my $neu = clone $alt;

if ($neu->{array} eq $alt->{array}) {
  say "Das Array wurde nicht kopiert";
} else {
  say "Das Array wurde kopiert";
}

if ($neu->{code} eq $alt->{code}) {
  say "Die Funktion wurde nicht kopiert";
} else {
  say "Die Funktion wurde kopiert";
}