my (@vals) = split(/\;/, $memory_data);
foreach my $mem (@vals) {
  my ($mem_name,$mem_value) = split(/\=/, $mem);
  $data{$mem_name} = $mem_value;
} # end-foreach