Select Code to Download

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

print "@{find_holes([qw(0 1 2 3 4 6 8)])}\n";

d:\tmp\try>perl try.pl
perl try.pl
5 7
d:\tmp\try>