sub add { 
    my $x = 0;
    for (1..9) {
        my $x = $x + $_;
    }
    print $x;         # prints 0
}