print Dumper $self->{TT}->call_category
$VAR1 = {
          'DU-EX-TA' => 16,
          '*-CM-*' => 145,
          # Lots more, but not the value of $key.
          '*-VY-*' => 132
        };