chomp(my $width = ); $width = int($width); ; chomp(my $array = ); my $cnt = 0; my $total = 0; foreach (sort {$a <=> $b} split(/\s/, $array)) { $total += int($_); last if ($total > $width); $cnt++; } print $cnt."\n";