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

    @exts{@exts} = @exts;

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