perl -Mstrict -wle"my %x = map{ $_ => $_ } 1 .. 10"

perl -Mstrict -wle"my %x = map{ 'A' . $_ => $_ } 1 .. 10"