foreach $filename (@files)
{
    #print "Processing $filename....\n" #I don't want this
    $rr = Net::DNS::ZoneFile::Fast::parse(file=>$filename,soft_errors=>1);
    foreach $rec (@{$rr})
    { ....
          }
}