my @keybucket = keys %db;
shuffle (@keybucket);
foreach my $key ( @keybucket ) {
    print qq(<a href = "$key"><img src="/images/$db{$key}"</a>);
}