use Modern::Perl; my %hash = %{do 'dumpparse.txt'}; say map {"$_ : $hash{$_}\n"} keys %hash;