$a='main'; if (1) { local $a='sub'; print "\n$a"; print "\n$main::a"; } print "\n$a"; #### sub sub main #### sub main main