my $a = 123; 
{ 
    my $a; 
    print $a; ## produces "Use of uninitialized value $a in print ... " because the above new $a is entirely new; thus uninitialised.
}

print $a;; ## prints: 123