#line 25
my $x = '123' =
my %OCN_PFX_To_TDir=( 
   3085220111379778 => '3085220111379788_Rexx',
   3085220334620644 => '3085220334620644_Spare',
   3085220346432582 => '3085220346432582_Rexx2',
   3085220352420034 => '3085220352420034_Algol'
    );

##</code><code>##

Can't modify constant item in scalar assignment at tmp.pl line 31, near ");"
Execution of tmp.pl aborted due to compilation errors.