\1 better written as $1 at a.pl line 10.
$HASH1 = {
           i => { n => { EOS => 1 } },
           o => { f => { EOS => 1 } },
           t => {
                  h => {
                         a => { t => { EOS => 1 } },
                         e => { EOS => 1 }
                       },
                  o => { EOS => 1 }
                }
         };
$HASH1 = {
           i => { n => { EOS => 1 } },
           o => { f => { EOS => 1 } },
           t => {
                  h => {
                         a => { t => { EOS => 1 } },
                         e => { EOS => 1 }
                       },
                  o => { EOS => 1 }
                }
         };
$HASH1 = {
           i => { n => { EOS => 1 } },
           o => { f => { EOS => 1 } },
           t => {
                  h => {
                         a => { t => { EOS => 1 } },
                         e => { EOS => 1 }
                       },
                  o => { EOS => 1 }
                }
         };