Select Code to Download

use strict;

...
  $ref1->();
  $ref2->() if $_ % 2 == 0;
}

ref sub1: 99
ref sub1: 100
...
ref sub1: 107
ref sub1: 108
ref sub2: 103