Select Code to Download

my %directions = ( 1=>'NORTH', 2=>'SOUTH', 3=>'EAST', 4=>'WEST' );

...
    $dir = $dir2 + 0;
    print_dualvar($dir);
}

use strict;
no warnings;  # !!!
...
    print "House# across the street is ", $house_number+1, "\n";
    print "DEBUG: Original house number '$house_number'\n\n";
}

$ perl t.pl
House# across the street is 1142
...

House# across the street is 120000000001
DEBUG: Original house number '120000000000'

House# across the street is 1142
DEBUG: Original house number '1141 Tennessee Avenue'

House# across the street is 120000000001
DEBUG: Original house number '12E10th Street'