$ diff Users.pm.dist Users.pm
66c66
<       my %users=($c=~/user\s+username="([^\"]+)"\s+user_id="(\d+)"/g);
---
>       my %users= reverse ($c=~/user\s+user_id="(\d+)"\s+username="([^\"]+)"/g);