Select Code to Download

my %foo = (   name1, type1;
              name2, type2;
...
            );

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

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