Here's my try:

sub record {
$t=$_[1]%3;$w=int$_[1]/3;$l=$_[0]-$w-$t;$w,$l,$t
#        1         2         3         4
#23456789012345678901234567890123456789012345678
}
[download]

Pepik

When pride and presumption walk before, shame and loss follow very closely. -- Louis XI.

Update I had the arguments reversed, and got rid of parentheses around $w,$l,$t.