DNS2

my @splitDNSFile;
my @records;

#start looping through each line
foreach $line (@DNSfile) {
    @splitDNSFile = split(/\s+/, $line);
    push(@records, @splitDNSFile);
}