undef as a Number

• Acts like zero when used as a number

$count = 1;
while ( $count < 5 ) {
    $total += $count;
    $count++;
}
print "The total: $total\n";

• See perldoc -f while