$key = $1 if /^ID=(.)/;

        my ( $new_key, $value ) = split /=/, $_;
        $person{$key}{ lc $new_key } = $value;