use List::Util shuffle;
my $random_string = join '', shuffle split //, "stringtorandomise36letterslong123456";
print "$random_string";

output:
le663snetnlrodt1mer23trsogiions4atg5