my @imagearray;  # array for everything in database
foreach (keys %db) {
push(@imagearray, "$_||$db{$_}";  # $imagetitle || $url
}

my @shuffled_array = shuffle(@imagearray); # shuffle the array

my($name, $url) = split("||", "$shuffled_array[0]"); # split array on ||

print qq(<a href="$url"><img src="/images/$name"></a>);