@ab = ();
%combos = ();

for ($i = 3; $i <= 28123; $i++) {
  $combos{$i} = 0;
  if (is_abundant($i)) {
    push (@ab,$i);
  }
}

foreach $l (@ab) {
  foreach $k (@ab) {
    $combos{$l + $k} = 1;
  }
}

$count = 0;
$sum = 0;
for ($i = 1; $i <= 28123; $i++) {
  if ($combos{$i} == 0) {
    #print "$i;";
	$count++;
	$sum += $i;
  }
}

print "\nTotal Count: $count; Sum: $sum\n";
exit;

sub is_abundant {
  my ($n) = @_;
  my %divisors = ();
  $sum = 1;
  for ($j = 2; $j <= sqrt($n); $j++) {
    if ($n % $j == 0) {
	  $divisors{$j} = 1;
	  $divisors{($n / $j)} = 1; 
	}
  }
  foreach $k (keys %divisors) {
    $sum += $k;
  }
  return ($sum > $n);
}