There's also no reason to slurp the contents of the file into an array.

open IN, "< $list" or die "can't read $list: $!";
while (my $line = <IN>) {
  chomp $line;
  my $out = join ".", (split '/', $line)[-1,-2];
  my $dns = DNS::ZoneParse->new($line);
  # ...
}
[download]

_____________________________________________________
Jeff[japhy]Pinyan: Perl, regex, and perl hacker, who'd like a job (NYC-area)
s++=END;++y(;-P)}y js++=;shajsj<++y(p-q)}?print:??;