Language Basics Perl

  1. Home
  2. Perl
  3. Language Basics
  4. Compare value entered with number with underscore
$savings = 0; 
while ($savings < 1_000_000) {
    print "Enter the amount: ";
    $savings += <>;
}