Hello tobias_hofer,

I notice that in sub new, $self->{stack} is assigned [], a reference to an anonymous array; but in sub _AnalyzeTraceFile you have:

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

which treats $self->{stack} as an array, not a reference. I think you meant to write this:

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

Incidentally, while looking at the code I found it useful to add another method to the CallStackAnalyzer package:

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

and to call it in sub Main:

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

Hope that helps,