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