foreach (@tagvalue) {
    if ($_ =~ /([\w,_]+):([0-9]+)/) {
      ${$1} = $2;
    } else { die "Failed to assign value to $1\n"; }
  }