Perl. Получение произвольного количества случайных элементов массива.

Что-то вроде array_rand для PHP: 

use List::Util qw/shuffle/;
my @pop = (1..100);
my $samples = 30;
my @sample = (shuffle(@pop))[0..$samples-1];
print "@sample";