Select Code to Download

#line 25
my $x = '123' =
...
   3085220346432582 => '3085220346432582_Rexx2',
   3085220352420034 => '3085220352420034_Algol'
    );

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