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

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