Less code - less troubles, a lot of code - a lot of... ;-)

#!/usr/bin/perl
%db = (
   'scores' => {
                'user1' => 200,
                'user2' => 190,
                'user3' => 232,
                'user4' => 187,
                'user5' => 190,
               },
    );
printf "%02d Place: (%d Points) %s\n", ++$i, $_,
    join(", ", split " ", $users{$_}) for reverse sort keys %{{
        map { $db{scores}{$_} => $users{$db{scores}{$_}}.=" $_" }
        keys %{$db{scores}} }};
__END__
01 Place: (232 Points) user3
02 Place: (200 Points) user1
03 Place: (190 Points) user2, user5
04 Place: (187 Points) user4
[download]