$N=pop;for(1..$N){%h=map{int rand 10,0}1..$ARGV[0];$g+=keys%h>9}print$g/$N

##</code><code>##

#!perl -l
$N=pop;for(1..$N){$g+=keys%{{map{int rand 10,0}1..$ARGV[0]}}>9}print$g/$N