Looks like a domain record file. You already have each line in an array with @lines = <INFO>;

You can't just split on space, since the "IN A" bits are not constant for all records. To be really accurate about this you need to write a parser for zone files, maybe with Parse::RecDescent, or maybe relying on some local utility. As it is you may get by with,

/^\s*(\w+)\s+IN A\s+(.*)$/
    and push @array, [$1,$2];
[download]