use strict;

my %y = map { "prefix_$_" => 1 } qw(a b c);