%router_of_interest = (router1 => "1",
                       router2 => "1",
                       router3 => "1",
                       router4 => "1"
                      );

while ($file = readdir(DIA)) {
    if ($file =~ /(.*)\.bbnplanet.net/) {
        $router = $1;
        next unless exists $router_of_interest{$router};

open(DIAFILE,"$dir/$file") || die "Cannot open $dir/$file: $!\n";
    while ($line = <DIA>) {
    chomp $line;
    if ($line =~ /^\s*L3 Engine: (\d+)/i){
        $engine = $1;

        if (grep(/$engine/,@{$HoL_engine{$router}}) != 1){
           push @{$HoL_engine{$router}}, $engine;
       }
     }
   }
   if (exists $HoL_engine{$router}){
       $engine{$router} = join(",",sort @{$HoL_engine{$router}});
   }
   else {
        $engine{$router} = "NA"; #GSR IOS version too old
      }
   }
}

foreach $key (sort keys %engine) {
print "$key - Engine $engine{$key}\n";
}