アヒアヒのコーツー入れました。
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