Select Code to Download

sub find_holes {
  my @list = @{ shift() };
...
] };

print join("\n", @{ find_holes( \@issues ) });

d:\tmp\try>perl try.pl
perl try.pl
...
00001 00002 00003 00004 00006 00007 00008 00009

5