my @array = ('-') x 600;
foreach (1 .. 10) {
    my $i = int rand 600;
    redo if $array[$i] eq 'X';
    $array[$i] = 'X';
}
my $joined_string = join "", @array;