timethese(100, {
        first  => sub { my @foo = qw/bar foo/; my $last = pop @foo },
        second => sub { my @foo = qw/bar foo/; my $last = $foo[-1] },
    });