for (0 .. $#chars){
     my $randomIndex = rand( @chars );
     print "\n$chars[$randomIndex]";
     $chars[$randomIndex] = $chars[-1];
     pop @chars;
}