sub record {

my ($gp, $pts) = @_;

my $win = 3;
my $tie = 1;

my ($winTot, $lossTot, $tieTot);

$winTot  = int ($pts / $win);
$tieTot  = $pts - ( $winTot * $win );
$lossTot = $gp - ( $winTot + $tieTot);

return ($winTot, $lossTot, $tieTot);
}