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;
}