my @array = qw( Larry Curly Moe );

my %stooges;

@stooges{ @array } = ( 0 .. $#array );

print "$_ = $stooges{$_}\n" for keys %stooges;