Select Code to Download

my %names = map { $_ => '' } qw(foo bar baz);

...
# access individually

print "$names{foo}\n";

my @names = ('') x 6;

...
# access individually

print "$names[2]\n"; # prints 3rd element