Indeed, but the technique is particularly useful for sets. For example,

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

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