$ perl -Mwarnings -e 'my $x = 1; my $x = 2;'
"my" variable $x masks earlier declaration in same scope at -e line 1.