RosettaCodeData/Task/Time-a-function/Perl-6/time-a-function.pl6

my $start = now;
(^100000).pick(1000);
say now - $start;