Select Code to Download

print join(', ', map { $lights{ $_ } ? $_ : () } 
                     ( 1..20_000)
      )."\n";

#!/usr/bin/perl
use strict;
...
print "duckyd   answer: $duckyd_answer\n";
print "duckyd2  answer: $duckyd2_answer\n";
print "tankalus answer: $tanktalus_answer\n";

            Rate    duckyd   duckyd2 tanktalus
duckyd    47.3/s        --       -1%      -44%
duckyd2   47.7/s        1%        --      -44%
tanktalus 84.6/s       79%       77%        --