$o.=$a[rand@a]while 8>length$o

You can shave a few chars off using for and a range. I think it's more readable too (is that a positive or negative in golf? :)