open (PICKEMDB, '>>', "pickemdb.txt") or die "Can't write results.";
$pickemdb{'user'} = $user;
$pickemdb{'lastweek'} = $score;
###### Errr.. not sure if the above are part of the code or where just a test that I commented out in case I might use it later.
%pickemdb = ($user => 'user', $score => 'score');
print %pickemdb;
print %pickemdb >> PICKEMDB;
close (PICKEMDB);