my @set = ( 1, 2, 3, 5, 8, 13, 21 );
my $random = $set[rand(@set)];

##</code><code>##

my @set = qw( apple orange banana cucumber );
my $random = $set[rand(@set)];