use v5.14;

my %hash = ('   key' => 'value  ',"\tkey2" => "value2\t");

open(FILE,'>>','filename') or die "$!";

while ( my($key, $value ) = each(%hash)){
     print "$key\n$value\n";
     print FILE "$key\n$value\n";
}

close FILE;