Cool...

'perldoc -f shuffle' does it like this:

              sub fisher_yates_shuffle {
                  my $array = shift;
                  my $i;
                  for ($i = @$array; --$i; ) {
                      my $j = int rand ($i+1);
                      next if $i == $j;
                      @$array[$i,$j] = @$array[$j,$i];
                  }
              }
[download]

GreetZ!,

ChOas

print "profeth still\n" if /bird|devil/;