...
my @stack = @{ $self->{stack} };
($self->{stacktraces}{ join('->', @{$self->{stack}}) } = \@stack)
&& ...