OUTER: while(my $line = <GZIP>) {
...