Mega Code Archive

 

Categories / Perl / Language Basics

 

Compare value entered with number with underscore

$savings = 0;  while ($savings < 1_000_000) {     print "Enter the amount: ";     $savings += <>; }