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

    @exts{@exts} = @exts;

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

##</code><code>##

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