$VAR1 = [
          5,
          5,
          5,
          5,
          5
        ];
Modification of a read-only value attempted at script.pl line 12.