my %foo = (   name1 => type1,
              name2 => type2,
              name3 => type3,
              name4 => type4,
            );

print $foo{name2}, "\n";