Not strictly a Perl question. A quick search using Google brought for example the following solution: http://akinas.com/pages/en/blog/mysql_random_row/