use strict;
use warnings;
use List::Util qw(max);
use Benchmark qw(cmpthese);

sub ternary {
    $_[0] > $_[1] ? $_[0] : $_[1];
}

sub sauoq {
    ($_[0], $_[1])[$_[0] < $_[1]];
}

sub List {
    max (@_);
}

my @r = map {int rand 1000}(0..1);

cmpthese -1,{
    'ternary' => sub {$r[0] > $r[1] ? $r[0] : $r[1]},
    'ternarySub' => sub {ternary(@r)},
    'sauoq' => sub {($r[0], $r[1])[$r[0] < $r[1]]},
    'sauoqSub' => sub {sauoq(@r)},
    'List' => sub {List(@r)},
};