my @array = qw( Larry Curly Moe );

my %stooges;

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

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

##</code><code>##

%stooges = map { 'var' . $_ , $array[$_] } 0 .. $#array;