sub r{sprintf"%02d",1+rand 44}while($ARGV[0]--){$_=my%n;$n{+r}++,$_="@{[sort+keys%n]}| ".r."-BB\n"until 22==y///c;print}