my @a = @{$categories{$k}->{traces};
OUTER: while( my $line = <GZIP> ) {
	for ( my $i = 0; $i < @a }; $i++ ) {
		if ( $line =~ /^($a[$i]->{regex})/ ) {
			my @lista = split /;/, $line;
			$A += $lista[$a[$i]->{calc}}[0]];
			$B += $lista[$a[$i]->{calc}}[1]];
			$C += $lista[$a[$i]->{calc}}[2]];
			next OUTER;
		}
	}
}