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

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