perl -MBenchmark=cmpthese -e'cmpthese -1, { cute => sub { [0,1]->[rand 2] }, list => sub { qw(0 1)[rand 2] } }' #### Rate cute list cute 768000/s -- -74% list 2899719/s 278% --