{
   package NameValTuple;
   sub new  { my $class = shift; bless({ @_ }, $class) }
   sub name { $_[0]->{name} }
   sub val  { $_[0]->{val} }
}