p6.p6

sub measure-with ($cmd) {
    qqx/$cmd @*ARGS.map("'"~*~"'")/
}

my @cmds = <perl6 ./perl6>;
my $len = @cmds».chars.max;
my $runs = 4;
my %results;
for @cmds.pick(*) -> $cmd {
    %results{$cmd} = {
        name   => $cmd.fmt("%{$len}s"),
        result => ([+] ^$runs .map: {measure-with $cmd})/$runs
    };
    say %results{$cmd}<name result>.Str;
}

say %results.max: *.<value>;