Another way to solve this problem is using constants.
e.g.

use constant DICT_A => "/usr/perl/dict_a.txt";
use constant DICT_N => "/usr/perl/dict_n.txt";
[download]

and replace every $DICT_A with DICT_A
I consider it a good thing to declare variables that are not changed in a script as constants... :-)

Best regards,
perl -e "print a|r,p|d=>b|p=>chr 3**2 .7=>t and t"