Select Code to Download

my @a = @{$categories{$k}->{traces};
OUTER: while( my $line = <GZIP> ) {
...
        }
    }
}