$ perl -wle '@a = qw(AA BB CC);
for (@a) {
  s/.//;
}
print for @a'
A
B
C