my @t = keys {map { $_ => 1 } qw|uno dos tres| }->%*;