#!/usr/local/bin/perl
use strict;
use warnings;

use Data::Dumper;
$Data::Dumper::Sortkeys = 1;

print "Content-type:text/html\n\n";

my $line1 = 'HKEY_LOCAL_MACHINE\SOFTWARE\Vendor\Product\CurrentVersion\Tokens\Encotone\SerialNumberUserAttribute=12345';
my $line2 = 'LanMan:= ; REG_SZ';

my @line1_parts = split(/[=\\]/, $line1);
my @line2_parts = split(/:= ;/, $line2);

my %hash;
my $href = {}; 
my $i;
for $i (0 .. $#line1_parts) {
	if ($i == 0) {
		# for the first time around, create the first level of the structure, itself as a hash.  Autovivification means that simply referring to it creates it.  No need to put anything in it yet.
		$hash{$line1_parts[$i]} = {};
		#create a hash reference to that element (which is itself a hash);
		$href = \%{ $hash{$line1_parts[$i]} };
	}
	elsif ($i == $#line1_parts) {
		# last time around, create the acutal hash elements you want, filling in down to the bottom level with dummy elements for the SerialNumberUserAttribute.
		$href->{'dummy'} = $line1_parts[$i];
		$href->{$line2_parts[0]}{'Value'}="";
		$href->{$line2_parts[0]}{'Type'}=$line2_parts[1];
	}
	else {
		# each next time around, create the next level of the structure, itself as a hash, tacked onto the hash that the hash ref points to
		$href->{ $line1_parts[$i] } = {}; 
		# move the hash ref to this new hash
		$href = \%{ $href->{$line1_parts[$i]} };
	}
}

print "<pre>\n";
print Dumper(\%hash);
print "</pre>\n";