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

##</code><code>##

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

##</code><code>##

sub print {
    use Data::Dump;
    my $self = shift;
    dd $self;
}

##</code><code>##

...
$CSA->TraceFile(\@tracecontent);
$CSA->print;
...