foreach (@ary) {$hash{$_} = 1; }
[download]

Will this do?

#!/home/bbq/bin/perl
# Trust no1!