Select Code to Download

if (grep(/$engine/,@{$HoL_engine{$router}}) != 1){
           push @{$HoL_engine{$router}}, $engine;
       }

use strict;
use warnings;

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