push @{$hash{$host}}, $router;

##</code><code>##

foreach $key (keys %hash) {
    print "$program $key $matrix ";
    print "$path/CISCO_$_.clean " for @{$hash{$key}};
    print "\n";
}