sub i_spend($loot)
{
   for (1 .. $credit){
      $loot -= $bills;
   }
   shift @ours;
}


@$mine = ();
@ours = map {i_spend($_)} @yours;

unless (@ours){
  print "someday...\n";
}