List::Util を使用する

$out = array('aaa','bbb','ccc','ddd','eee');
eval 'use List::Util qw/shuffle/';
my @out2 = shuffle(@out);

これでランダムに並びかえられるので、スカラー値を１つ抽出したいときは

my $data = $out2[0];

でOKです。