sub weight { my $age = shift; return $age / $FACTOR; }