#!/usr/bin/perl

use strict;
use warnings;
use List::Util 'shuffle';
use 5.010;

my @new;
$_ ~~ \@new or push @new, $_ for
  shuffle map { ($_) x rand 100 } 'a'..'e';
say "@new";

__END__