foreach (split /,\s*/, param('hashdata')) {
     my ($k, $v) = split(/\s*=>\s*/);
     $hash{$k} = $v;
  }