Select Code to Download

my @array = qw( Larry Curly Moe );

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

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

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