my @a = ('a'..'z');
my $take = 5;
for (0..$take-1) {
  my $swap_with = $_ + rand(@a-$_);
  @a[$_,$swap_with] = @a[$swap_with,$_];
}
print join(',', @a[0..$take-1]), "\n";