shuffle input array for sshcollector

[stromsoe]

Shuffle the input array for netdisco-sshcollector. This helps to make it less likely when running multiple collectors on different devices targeting diffrent devices that they will end up stepping on each other.

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;

[ollyg]

thanks! patch applied in 0e92744