Select Code to Download

sub slurp
{
...
  $/ = $save;
  return @list;
}

my @list = <FIL>;

my $input = do { local $/; <FIL> };

for (my $i=1; $i <= $pop->Count(); $i++)

for my $i(1..$pop->Count())