Taking a lead from Corion, if you did want sports rankings (and without additional modules), just change $i++ to ...

$i += @{$scores{$_}};

... which will automatically make the next available rank skip N ranks if you have tied users. (ie, 1st, 2nd, 3rd, 5th assuming two people ranked 3rd.)

    --k.