perl

use strict;
use warnings;

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

foo();
bar();
print $a

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