Select Code to Download

    my @exts = qw/foo bar baz/;
    my %exts;
...

    use Data::Dumper;
    print Dumper \%exts;

    $VAR1 = {
          'foo' => 'foo',
          'baz' => 'baz',
          'bar' => 'bar'
        };