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";
}