use strict;
use warnings;

my @test = qw(eins zwei drei vier fuenf);

print join(',', @test), "\n"; 
for my $i (1..5)
  {
  shuffle(@test);
  print join(',', @test), "\n"; 
  }
  
sub shuffle 
  {
  # Fisher-Yates shuffle
  my $i = @_;       # Laenge von @_
  while ($i) 
    {
    my $j = rand $i--;
    @_[$i, $j] = @_[$j, $i];
    }
  }