P:\test>type junk.pl
#! perl -slw
use strict;

my( $a, @b, %c );

if 1 ) {
        my( $a, @b, %c );
}

P:\test>perl -c junk.pl
"my" variable $a masks earlier declaration in same scope at junk.pl line 8.
"my" variable @b masks earlier declaration in same scope at junk.pl line 8.
"my" variable %c masks earlier declaration in same scope at junk.pl line 8.
syntax error at junk.pl line 7, near "if 1"
junk.pl had compilation errors.

P:\test>perl -Xc junk.pl
syntax error at junk.pl line 7, near "if 1"
junk.pl had compilation errors.