#!/usr/bin/perl -w  
use strict;
 
my $calog = "/var/log/ca/ca.log";
my $line;
my @certs = ();
 
open LOG, "$calog" or die "Can't open $calog: $!\n";
while ($line = <LOG>)
{
     my @entry = split ' ', $line;
     $certs[@certs] = $entry[7]; 
}
print @certs;