perl - 卡在 perl 代码中

Question

我有一个包含如下列表的文本文件：

test1:test2
test3:test4
test5:test6

我想将它导入散列（左词作为键，右词作为值。

我的代码是这样的：

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;

我得到以下输出：

$VAR1 = {
      'test1' => 'test2',
      'test5' => 'test6',
      'test3' => 'test4'
    };

现在，我不知道如何更改代码以最终扩展输出，如下所示：

$VAR1={
         'test2' =>'test6'=>'test4'
      };

有人可以帮我得到这个输出吗？

Answer 1

$Data::Dumper::Indent = 0;
print Dumper( [values %hash] );