First one is pretty simple:

my %hash = ();
my @array = qw /fred jim john joe/;

@hash{ @array } = @array;
[download]

... since you're not worried about the values ;)

"Falling in love with map, one block at a time." - simeon2000