my( $name, $url ) = do{ 
    my @pair; # updated!! Whoops!
    @pair = each %db for 0 .. rand keys %db; 
    @pair; 
};
print qq(<a href="$url"><img src="/images/$name"></a>);