in reply to Golf: 3 hole golf game

36 and 46 strokes for #2 and #3. No solution presented for #1.

#2: File::Util is in current core, so, 

#!/usr/bin/perl -
use File'Util shuffle;print shuffle<>

[download]
36 strokes.

#3 is similar 

#!/usr/bin/perl -
use List'Util shuffle;print+(shuffle<>)[0,1]

[download]
46 strokes

After Compline,
Zaxo

In Section Meditations