in reply to Re^2: Golf: Pandigital puzzle
in thread Golf: Pandigital puzzle

Further tweaking to 71 
print 1/($N=pop)*grep{keys%{{map{int
rand 10}1..$ARGV[0]*2}}>9}1..$N

[download]

Update: If I can change the order of the parameters, I can get to 70. 
$#a=2*pop;print 1/($N=pop)*grep{keys%{{map{int
rand 10}@a}}>9}1..$N

[download]

Being right, does not endow the right to be rude; politeness costs nothing.
Being unknowing, is not the same as being stupid.
Expressing a contrary opinion, whether to the individual or the group, is more often a sign of deeper thought than of cantankerous belligerence.
Do not mistake your goals as the only goals; your opinion as the only opinion; your confidence as correctness. Saying you know better is not the same as explaining you know better.

In Section Meditations