use strict;
use warnings;

print join"\n",grep$_,map{our%s;my$n=1+int rand(10);$s{$n}++?0:$n}1..100;