perl shuffle String and Array

I wrote a little script in Perl to shuffle Arrays or strings:

This are my examples:

and we got his as result: