my ($potential, $abilities) = (100, 0); while ($abilities < $potential) { $abilities++; # use perl monks; use books; }