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

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

##</code><code>##

my %foo = ( name1 => 'type1',
            name2 => 'type2',
            name3 => 'type3',
            name4 => 'type4' );
print $foo{name2}, "\n";