return NameValTuple->new( name => $name, val => $val );

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

##</code><code>##

return bless { name => $name, val => $val }, 'NameValTuple';

{
   package NameValTuple;
   sub name { $_[0]->{name} }
   sub val  { $_[0]->{val} }
}