my %tag_value;

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

##</code><code>##

      die "Failed to match tag/value in '$_'\n";