アヒアヒのコーツー入れました。sub { say "$_[0]$_[1]$_[0]$_[1]の$_[2]ー$_[3]ー入れました。";}->(shuffle qw / ア ツ コ ヒ /);List::Utilのshuffle使ってます。List::Util - A selection of general-utility list subroutines - metacpan.org https://metacpan.org/pod/List::Util#shuffle
様々な目的に使える、日本の汎用マストドンサーバーです。安定した利用環境と、多数の独自機能を提供しています。