use strict;

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

##</code><code>##

use strict;

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