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

my @big = (qw(u n s o r t e d));
my @shuffle = (shuffle(@big))[0 .. $#big*.75];
print join "|",@shuffle;