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

##</code><code>##

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;    
     }
   }

##</code><code>##

 my  %good_files = ();
   
   foreach  $key (sort keys %end) {
     if (!exists($begin{$key})){
       push (@{$good_files{$begin{$key}}}, ($key));
       
     }
   }