Try this...

#!/usr/bin/perl

use strict;
use Data::Dumper;

my @array = qw( a b c );
my %hash = map { $_ => 1 } @array;

print Dumper \%hash;
[download]