$ perl weight.pl
The 3 non_weighted workers get each 128.545454545455
DREW gets 64.2727272727273
TIM gets 257.090909090909