use Syntax::Construct qw{ %slice };
use Data::Dumper;

my @l = qw( the quick brown fox );
my %h = %l[0 .. $#l];
print Dumper \%h;

__END__

$VAR1 = {
          '2' => 'brown',
          '1' => 'quick',
          '3' => 'fox',
          '0' => 'the'
        };