my ($name, $value);
my @vars = split "&", $data;
foreach (@vars) {
($name, $value) = split "=";
$hash->{$name} = $value;
}