my %y = map +( "prefix_$_" => 1 ), qw/a b c/;