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

my $table_fwd = My::DualVar->new(%directions);
my $table_rev = My::DualVar->new(reverse %directions);

tie $direction, \$table_fwd;

my ($dir, $dir2) = (4, 1);
tie $dir,  \$table_fwd;
tie $dir2, \$table_fwd;

print_dualvar($dir);
++$dir2;
print_dualvar($dir2);

tie $dir2, \$table_rev;
for $dir2 (qw(SOUTH WEST EAST)) {
    $dir = $dir2 + 0;
    print_dualvar($dir);
}

##</code><code>##

use strict;
no warnings;  # !!!

my @addresses = (
    "1141 Tennessee Avenue",
    "12E10th Street"
);

for (@addresses) {
    my $house_number = $_+0;
    print "House# across the street is ", $house_number+1, "\n";
    print "DEBUG: Original house number '$house_number'\n\n";
}
##</code><code>##

$ perl t.pl
House# across the street is 1142
DEBUG: Original house number '1141'

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

##</code><code>##

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'