my @a = map {my $e = rand $N -- < $M; $e && $M --; $e || 0} 1 .. $N;