foreach $file(@end) {
     open FILE, "$file" || die "Cannot open: $!\n";
     while ($line = <FILE>) {
       chomp $line;
      next if ($line =~ /unknown|shutdown|NONE/);
        ($as,$as_name,$nbr,$rtr,$int,$address,$int_name,$ifindex,$vpi,$vci) = split(' ',$priv_line);
     $end{$int_name} = $rtr;    
     }
   }