# x.pl
use Benchmark qw(timethese cmpthese);

cmpthese(
    -2,
    {
        GrandFather => sub {
            my $idxMax = 0;
            $ARGV[$idxMax] > $ARGV[$_] or $idxMax = $_ for 1 .. $#ARGV;
            $idxMax;
        },
        reisinge => sub {
            [ sort { $ARGV[$b] <=> $ARGV[$a] } 0..$#ARGV ]->[0];
        }
    }
);