Select Code to Download

use List::Util qw( shuffle ) ;

...
{
    print( ( map { "[$_]" } shuffle @arr ), "\n" ) ;
}