my @array;
for ( 1 .. 10 ) {
    my $random_number;
    do {
        $random_number = rand 600;
    } while $array[$random_number] eq 'X';
    $array[$random_number] = 'X';
}