use strict;  
use warnings;  
use v5.14;  
use Compress::Zlib;  
  
my $filename= "example.gz";  
my $fh= gzopen($filename, "rb");  
  
my $line=0;  
my $counter=1;  
my @array=();   
  
[b]while($line = <$fh>)[/b] {  
    @array= split (' ', $line);  
    my $num = scalar(@array);  
    print "$array[15]   $array[1]\n" if ($array[15] eq "word");  
    $counter++;  
}  
      
close $fh;