my @uc = ( uc("abc"), uc("def") ); | v my @uc = map { uc($_) } "abc", "def"; #### my %h = ( "abc" => 1, "def" => 1 ); | v my %h = map { $_ => 1 } "abc", "def";