Select Code to Download

open FILE1, "text_file_with_words.txt" or die;
my %hash;
...

use Data::Dumper;
print Dumper \%hash;

$VAR1 = {
          'word1' => 'word2',
          'word5' => 'word6',
          'word3' => 'word4'
        };