print $FH $Key, '=',$value,"\n";

#und später :+

while (<$FH>){
    ($k, $v) = split /=/, $_;
}