diff --git a/bin/netdisco-sshcollector b/bin/netdisco-sshcollector
index 75d147c5..a9de0fe3 100755
--- a/bin/netdisco-sshcollector
+++ b/bin/netdisco-sshcollector
@@ -83,6 +83,10 @@ exit main();
 sub main {
     my @input = @{ setting('sshcollector') };
 
+    #one-line Fisher-Yates from https://www.perlmonks.org/index.pl?node=Array%20One-Liners
+    my ($i,$j) = (0);
+    @input[-$i,$j] = @input[$j,-$i] while $j = rand(@input - $i), ++$i < @input;
+
     my @mce_result = mce_loop {
         my ($mce, $chunk_ref, $chunk_id) = @_;
         my $host = $chunk_ref->[0];