sub mem_get{
  my $tmp = $memd->get($_[0]);
  if (ref($tmp) eq "ARRAY"){
		return @{$tmp};
	}else{
		return $tmp;
	}