%set= map { $_ => foo($_) } @list;
%set= map +( $_ => foo($_) ), @list;