#!/usr/bin/perl use strict; use warnings; my %hash = ( "manager.1.address" => "127.0.0.1", "manager.1.port" => "162", "manager.1.version" => "2", "manager.2.address" => "127.3.2.1", "manager.2.port" => "132", "manager.2.version" => "1" ); open(OUT, ">$outfile") or die "Could not open file for writing: " . $!; foreach (keys %hash) { print OUT "$_=$hash{$_}\n"; } close OUT; #### manager.1.port=162 manager.1.version=2 manager.2.address=127.3.2.1 manager.2.port=132 manager.2.version=1 manager.1.address=127.0.0.1