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

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

# access individually

print "$names{foo}\n";