my @data = map +{ name => $_, value => $roster{$_} }, keys %roster;
for (fit($maxpoints, 0)) {
  print join(" ", map $data[$_]->{name}, @$_), "\n";
}

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

##</code><code>##

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