@matching{@names} = shuffle(@names); # Match 'em up
    
    # No one has themselves
    foreach (@names) {
        next GENERATE if $_ eq $matching{$_};
    }