perl

use strict;
use warnings;

sub foo {
　　$a=2;
}
sub bar {
　　$a=3;
}

foo();
bar();
print $a

まあ、なんて恐ろしい。警告も出ずに3が表示されます。