P:\test>perl -Mstrict -wle"my %x = map{ qq[A_$_] => $_ } 1 .. 10"
syntax error at -e line 1, near "} 1"
Execution of -e aborted due to compilation errors.