Select Code to Download

my @data = map +{ name => $_, value => $roster{$_} }, keys %roster;
for (fit($maxpoints, 0)) {
...
        map [ $index, @$_ ], fit($points - $data[$_]->{value}, $index 
++ 1))
  } $start .. $#data;
}

  map {
    my $index = $_;
...
      my @result = fit($points - $data[$_]->{value}, $index + 1);
      @result ? map([ $index, @$_ ], @result) : [ $index ]
  } $start .. $#data;