Or you could do it like this:

my %y = map( ( "x$_" => 1 ), qw( a b c ) );
[download]