Shuffle a sequence

From Augix' Wiki

use List::Util 'shuffle';
 
my $str = "TGCAAATAGACACCAAAAATGAGAAGGAATACCTAT";
my @str = split (//,$str);
my @new_str = shuffle(@str);
my $new_str = join ("",@new_str);
 
print "$new_str";
print "\n";