C:\test>perl -E"$xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx1 = 1"

##</code><code>##

C:\test>perl -E"$xxxxxxxxxxxxxxxxx
Identifier too long at -e line 1.

##</code><code>##

$longName = 'x' x 1e4;;

${ $longName . 1 } = 1;;
${ $longName . 2 } = 2;;

if( ${ $longName . 1 } != ${ $longName . 2 } ) { 
    print 'Great! Ten thousand characters long and all significant.' 
};;
Great! Ten thousand characters long and all significant.