while($buget eq $deficit) {
  print $money;
  &spend();
  $money++;
}