Select Code to Download

use strict;
use warnings;
...
print join "\n", grep { length $+{$_} } keys %+; print "\n";

__END__

# a partition problem as a special case
my $max_weight = 136;
...
  i => { w => 42, v => 42 },
  j => { w => 49, v => 49 },
);