#! /usr/bin/perl
use strict;
use warnings;
use Quantum::Superpositions;

my @array_1 = (1 .. 4);
my @array_2 = qw{1 2 2 3 3 3 4 4 4 4 5 6 7};

my @array_3 = eigenstates( any(@array_2) != all(@array_1) );
my @array_4 = Quantum::Superpositions::eigenstates( any(@array_2) != a
+ll(@array_1) );

print "Ordered:\n";
print "$_\n" for @array_3;
print "Hash:\n";
print "$_\n" for @array_4;

{
    no warnings 'redefine';
    *eigenstates = *main::eigenstates;
    sub eigenstates ($) {
        my @uniq;
        my %seen;
        for ( Quantum::Superpositions::collapse( $_[0] ) ) {
            push @uniq , $_ if ! $seen{$_};
            $seen{$_}++;
        }
        return @uniq;
    }
}
[download]

my @visited   = (1 .. 5);
my %unvisited = map { $_ => undef } 1 .. 9;

while ( %unvisited ) {
    delete @{unvisited}{@visited};
    for ( keys %unvisited ) {
        visit( $_, \%unvisited );    # Adds routers to %unvisited
        push @visited , $_;
    }
}
[download]

my %visited   = map { $_ => undef } (1 .. 4);
my @unvisited = (1 .. 9);

while ( @unvisited ) {
    my $router = shift @unvisited;
    next if exists $visited{$router};
    visit ( $router, \@unvisited );   # Adds routers to @unvisited
    $visited{$router} = undef;
}
[download]

Cheers - L~R

L~R
tanx for all the help i think i have it going now. order is important as i want to see what router is connected to what.
the code i actually used was very similar to what u just given..
once again your fountain of knowledge amazes me
thanking you
tommy