my @data = ...;
my $selected = $data[ rand @data ];