foreach my $line (@a) { 
        my ($colA, $colB, $colC,$colD) = split( /\s+/, $line);
        
        #print "$colD \n";     
}