TL;DR use List::Util qw(sample); my @array = (1..100); # 3個ランダムでとりだす my @random_pickup = sample 3, @array; 人間生きていると配列の中身からランダムにn個取得したいときがあります。Perl書いているときもありますね。 よくある方法は次のよ…