Select Code to Download

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

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