If I understand the "problem":

my @rand = 1..54;
my %rand = map { $_=int rand($rand[$#rand])+1, $rand{$_}++ } 1..10000;
print "$_\t$rand{$_}$/" for sort { $a <=> $b } keys %rand
[download]

Update $rev{$rand{int rand(54)+1}++}++ for 1..10000