my $user = 'Resin';
my $score = 1000000;

# append to db

open (PICKEMDB, '>>', "pickemdb.txt") 
  or die "Can't write results.";

my $record = join '|', $user, $score;
print PICKEMDB "$record\n";

close PICKEMDB;

# later, read into hash

open (PICKEMDB, '<', "pickemdb.txt") 
  or die "Can't read results.";

my %pickemdb;
while (my $record = <PICKEMDB>){
  chomp $record;
  my ($user, $result) = split /\|/, $record;
  $pickemdb{$user} = $result;
}

# traverse over the hash to see

for my $user (keys %pickemdb){
 print "$user -> $pickemdb{$user}\n";
}