Use .roll instead of deprecated version of .pick(:replace)

dice.pl

@@ -2,7 +2,7 @@
 my @count = 0 xx 20;
 
 for ^$chars-to-roll {
-    my @a = (^6).map({ [+] (1..6).pick(4, :replace).sort(-*)[^3] }).sort(-*);
+    my @a = (^6).map({ [+] (1..6).roll(4).sort(-*)[^3] }).sort(-*);
     for @a { @count[$_]++ };
     # say ~@a;
 }