$text->{$line}[$pos - 1] = $word;
       ^ ^      ^
       | |      |
       | hash   |
dereference    array


##</code><code>##

$VAR1 = {
          'c3' => [
                    'Phasellus',
                    'non',
                    'erat'
                  ],
          'b2' => [
                    'consectetuer',
                    'adipiscing',
                    'elit.'
                  ],
          'a1' => [
                    'Lorem',
                    'ipsum',
                    'dolor',
                    'sit',
                    'amet,'
                  ]
        };


##</code><code>##

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,