Here's my entry at 67:

#2345678901234567890123456789012345678901234567890123456789012345678
sub c{($t,$p)=@_;for(reverse@$p){until($t<$_){push@r,$_;$t-=$_}}@r}
[download]

Based on tadman's original.

update

boo_radley just pointed out this is in fact 54. Where do I find the rules to this sport?

-- iakobski