my %bnb = {Seals => 0, Fighters => 0, Panzers => 0, 'Heavy Lasers' => 0, Marines => 0, Bombers => 0};
my $bestNw;
foreach my $key (sort { $bnb{$a} <=> $bnb{$b} } keys %bnb) {
	if ($bnb{$key} > 0) {
		my $value = addComma($bnb{$key});
		push @$bestNw, { unit => $key, value => $value };
	}
}