my %hash = map { $_ => "stuff_$_" } qw(asdf qwert zxcv);