open FILE1, "text_file_with_words.txt" or die;
my %hash;
     while (my $line=<FILE1>) {   
     chomp;
   (my $word1,my $word2) = split /:/, $line;  
          $hash{$word1} = $word2;   
    }