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