sub searchForIP { 
    my ($files, $ip) = @_; 
    my @files = @$files; 
    for my $file (@files){ 
        my $filename = $file; 
        my $fh = IO::Uncompress::Bunzip2->new($filename) or die "bunzip2 $filename: $IO::Uncompress::Bunzip2::Bunzip2Error"; 
        while (<$fh>){ 
            print "$filename:$.:$_" if /$ip/; 
        } 
    } 
}