perl -MBenchmark=cmpthese -e'cmpthese -1, { cute => sub { [0,1]->[rand 2] }, list => sub { qw(0 1)[rand 2] } }'